DDDDDDDDDDDD EEEEEEEEEEEEEEE BBB8BBBB8BB8B UUU UUU GGGGGGGGGGGG 
DODDDDDDDDDD EEEEEEEEEEEEEEE BBB888BB8BBBB UUU UUU GGGGGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B8BB8BB8BBEB UUU UUU GGGGGGGGGGGG 
DOD | DDD EEE BBB BBB UUU UU G 

DOD DDD EEE BBB BBB UUU UUU GGG 

DDD DDD EEE 888 BBB UUU UUU GGG 

DOD DOD EEE BBB BBB UUU UUU GGG 

DDD DOD EEE 888 BBB UUU UUU GGG 

DOD DDD EEE BBB BBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBBBBBB UUU UUU GGG 

DDD DDD EEEEEEEEEEEE BBBBBBBS8EEBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBSBBBB UUU UUU GGG 

DOD DDD EEE BBB UUU UUU GGG GG6GGGGGGG 
DDD DDD EEE B88 BBB UUU UUU GGG 6G6G6G6GGGG6G 
DOD DDD EEE BBB BBB UUU UUU GGG 666666666 
DDD DDD EEE 888 BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B88B8BB8B888 UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDODDDDDD EEEEEEEEEEEEEEE BBSBBBB8BBBB UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE BB8B8BBBBBBBB UUUUUUUUUUUUUUU GGGGGGGGG 
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**F ILE**1D**DBGNCNTRL 
DDDDDDDD BBB8B888 GGGGGGGG NN NN cccccccc NN NN TTTTTTTTTT RRRRRRRR LL 
DDDDDDDD BBB88B88 GGGGGGGG NN NN CCCCCCCC =NN NN TTTTTTTTTT RRRRRRRR LL 
0D DD 88 BB GG NN NN CC NN NN TT RR RR LL 
dD DD 88 BB GG NN NN CC NN NN TT RR Pa tL 
dD DD 8B BB GG NNNN NN CC NNNN NN TT RR wR LL 
dD dD 88 BB GG NNNN NN CC NNNN NN TT RR RR LL 
oD DD 88888888 GG NN NN NN CC NN NN NN TT RRRRRRRR LL 
0D DD 88888888 G& NN NN NN CC NN NN NN TT RRRRRRRR LL 
dD DD 8B BB GG GGGGGG NN NNNN CC NN NNNN TT RR RR LL 
DD DD 8B BB GG GGGGGG NN NNNN (CC NN NNNN TT RR RR LL 
0D DD 6B BB GG GG NN NN CC NN NN TT RR RR LL eeee 
dD DD 88 8B NN NN CC NN NN TT RR RR LL cece 
DDDDDDDD 88888888 GGGGGG NN NN CCCCCCCC =ONN NN TT RR RR LLLLLLLLLL eeee 
DDBODDDD BBBBBBBB GGGGGG NN NN Cccccccc NN NN TT RR RR LLLELLELLLL eeee 
LL III] SSSSSSSS 
LL HII] SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] $$ 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLELLLLLE III SSSSSSSS 
LLLLLLLLLL M1111 SSSSSSSS 
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i eeeeeeerrereereereeeeererererereeereeereeeeerereerrereeeeeeenerenreneeeereees 
'@ 

'@ COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'® DIGITAL ae ey CORPORATION, MAYNARD, MASSACHUSETTS. 

'@ ALL RIGHTS RESERVED. 


'@ THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS oF SUCH LICENSE AND WITH THE 
NOTICE. THIS SOFTWARE OR ANY OTHER 

} OVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
'@ OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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ie@ THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i: enRPORAT I On NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


'@ DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
's SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

i 
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' 

' MODULE FUNCTION 

: This module contains DEBUG's top level parsing and execution routines. 
Routine DBGSNCONTROL is called after an input Line has been collected 
from the user's terminal, or a record has been read from an indirect 
command file or DO ogtten buffer. Other routines in this module break 
an input Line into s “ae commands, verify these commands if appropri- 
ate, and allocate and deallocate Senporory DEBUG memory (i.e., memory 
that is automatically reclaimed at the end of each command). End of 
command clean-up routines are also included. 


WN —O OONOA VE WN $0 O@NOUES UNO 


WaAw 


Sessssssscoececcccccccsccs 


WANA 


NOE WI OO OO@nNOu 


Routine DBGSNCONTROL invokes the top level parsing and command execu- 
tion networks as needed. Commands are parsed and executed one at a 
time. Detection of errors in the parsing phase cause the command in 
question to not be executed. 


i AUTHOR: David Plummer, CREATION DATE: 4/15/80 
i MODIFIED BY: 


R. Title, Feb 1982, Filled in CISSA_WHILE CLAUSE field from 
within DBGSNGET"CMD; Ehis was in order to 
implement the WRILE command. 

R. Title, Apr 1982, Fixed a bug in DBGSNSAVE FILESP that was 
prevent ing logical name Eranslation from 
occur ing @ sen colon was always being 

n 


gppende to the 
R. Title, Jan 1983 ¢ 


ame). 
anged DBGSNGET_CMD so that when Language 
s set to C, the comment character is 


PPV TVAAIIIN EB 
NOUS WN —O OW 


MADMAN 


NOUS WI —O O@ 
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3 8 1! 

; 9 1! R. Title, Sep 1983 fixed d"DBGeNCET Ll) a9 srees a Line of tabs 

; @& 1! the same as a Tine of blanks. 

; 6) 1! B. Becker, Oct 1983 (ar the u Breccesin so that when an Ada 

; 6 1! tick or found > GSNGET_CMD will continue to 

3 6 1! uppercase the Line. ATso created another 

3 oe } routine to do the uppercasing work. 

$ 68 : REQUIRE *SRC$:DBGPROLOG.REQ'; 

3 o8 : LIBRARY ‘LIB$:DBGGEN.L32'; 

3 0 1 FORWARD ROUTINE 

.— 1 DBGSNCONTROL: NOVALUE, ! Controls parsing and command execution 
ee. 1 ADD_TO put LIST: NOVALUE, 

Fe 1 DBGSNGET ' Chops input string into command strings 
3 a : DBGSNKILC_ Corb } Kills =  Sonneee and frees up dynamic 

: H mory 

se. 1 DBGSNEND_OF LES, ! End m perse line clean-up 

eS 1 DBGENSAVED FILE ' Saves a filespec in a dynamic buffer 

: #78 1 RIFY_OU * NOVALUE, ' VERIFIES indirect command file commands 
; #79 1 DBGENCMANGE S ieue NOVALUE, ! Aids transition to new debugger 

; 80 1 DBGENSA ve One AR_BUFFER: NOVALUE, ' Save a break action buffer 

s 61 1 oe NG, ! Uppercases a ‘C* command string 

; 8 1 T*nBA'C CAD STRING ! Uppercases a Ada command string. 

; «8B 1 CET “NORMAL _CMD_STRING; i Uppercases a normal command string 
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sth ROUTINE 
DBGSEXPAND DEF INE NAME, 


— 


Expands a DEFINE name 
77? 


BGS$FAO Out: NOVACU 
DBGSNINITIALIZE: NOVALUE, 
DBGSNOUT_INFO 
DBGSNSYNTAX ERROR, 
DBGSEND_OF CINE: NOVALUE, 


DBGSEND-OF “CMD: NOVALUE, 
DBGSNOUT_ARG vel: NOVALUE, 


BG RY 
DBGSNPARSE _CMD 
DBGSNEXECUTE_C 


EXTERNA 


: WORD 
al H LINK 
G$GB-DEF OUT: VECTORL. BYTE) 


Sets language specific context 
Matches counted string to input 
Outputs an informational message 


Formats a syntax error 
Version ; end of line clean-up 
Version 2 end of command clean-up 


Outputs a message vector 
Constructs an argument vector 
solates next word of input 

Removes a Link from the cis 

Allocates a dynamic memory block 

Allocates a temporary memory block 

Release ——— memory 

The DEBUG command parser 

The DEBUG command executor 


Current language setting 

Override "ype 

Override Length 

Default type 

Default length 

Head of cis 

Output control vecter in old debugger 


DBGS$GL-ORIG_ COMMAND PT 


R ! Pointer to original command strin 
UPCASE_COMMAND_PTR: VECTOR(2); . . 


—— eee ee ee ee ee 


DBGSGL_ 


Pointers to start and end 
of current command string 


POOP PIPINIPPNIPIPIPINPINIPIPIPIPIPUNPIPIPININYPUNRPD 


OBAL 
DBGSGL_ORIG_COMMAND_PTR 
DBGS$GL-~UPCASE_COMMAND PTR: 


} Pointer to original command string 
VECTOR(2, LONG); | 


Pointer to upcased command string 


MrMrorororn 


OWN 
MESSAGE _POINTER 


a > Holds address of message argument vector 
CMD_STG_DESC: BLOCK(12,BYTE), 


Command input string descriptor. Note 
the extra longword to contain 
the original DSCSA_POINTER. 

Start of executable parse tree 

Pointer to parse string gescriptor 
used in gathering filespecs. 

Pointer to the start of the input to 
be verified 


CMD_VERB_PTR 
SAVE_INPOT_DESC: REF DBG$STG_DESC, 


START_VERIFY_POINTER; 
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1 
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1 
1 
1 
1 
1 
1 
1 
: 
1 DBGSGW_DFLTL 
1 DBGSG 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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ee ee ce ee ee ce et ee ec ce ee ce ce ee ee ee ee ee ed ee od ee 
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Sat 


INITIAL_PTR = 8, 0, 32, 0 2; 


Pointer to start of dynamic buffer 
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GLOBAL ROUTINE DBGSNCONTROL(PARSE_STG_DESC): NOVALUE = 
! FUNCTION 

Routine DBGSNCONTROL oversees gennend parsing and execution. Only commands 
that are parsed without detection of errors are executed. Routines are invoked 
for end of command and input processing. 


FORMAL PARAMETERS: 
PARSE _STG_DESC = A VAX standrd descriptor of the input string. 


i 

4 

i 

i 

i 

i 

i 

i 

; IMPLICIT INPUTS: 
; CMD_VERB_PTR = Pointer to the verb node (head node) of the 
: executable command tree. 

i 

i 

i 


MESSAGE_POINTER = Pointer to message argument vector. 
BEGIN 
P 
PARSE_STG_DESC : REF BLOCK C,BYTE); 


LOCAL 
STATUS; ! Retains return code 


N+ tre d bt tat try te ree 4 SN NNO 


VEAREN—SSSLSSL IS SSS SARS VaR ONT SSSS 


Try to get another command from the present input buffer. Check for comments. 
status = dbg$nget_cmd (.parse_stg_desc, cmd_stg_desc, message_pointer); 


IIATOPONIPOPoPoTrofonys 


ne!” pears FROM sts$k_warning TO sts$k_severe 


$ SET 

$ Csts$k_warning] : ! No more input from present buffer 
3 IF NOT dbg$nend_of_input (message_pointer) 

3 IMEN gbg$nout _arg_vect (.message_pointer); 


Csts$k_success] : ! Parse and execute command 
BEGIN 


dbg$ninitialize (); 
it _Gotoperse cad (cmd_stg_desc, cmd_verb_ptr, message_pointer) 


BEGIN 
dbg$nverify_out (.parse_stg_desc Cdsc$a_pointer]); 
IF NOT dbg$nexecute_cmd (cmd_verb_ptr, message_pointer) 


Be Se Oe Se Oe Se Se Ge Be Se Be Se Ge Se Ss Se Se Ge Se Ge Se Se Se Se Se Se Se Ge SH Fs Se Ge Bs Se Ge Se Ge Se Se Gs Se Se Se Se FH Se Oe Oe HSH Se oe Oe OHSS Os es 


DUBS BBB BE ANNAN HANI AIAIPI PIPPI NIDIPIPIPIPINIPINPININIDINIID 9 9 tt ot 


SOOOOSOCOOOCOSOSOSOOOSOSOSOSOOSOCOSOSOSSOSSOOSOSOSOOSOSOOSOOSOOOOOOO OOO OOOO OOOOOOoOO 


Morn OOO 


WN —OOOVNOusewWwn—O0@ 
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BEGIN 
dbg$nout_arg_vect (.message_pointer); 
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von * 9} 9 ci : yt ( 3 


14-Sep-1984 12:17:0 DEBUG. SRC JDBGNCNTRL .B32;1 3) 
IF NOT dbg$nkill_cmd (message_pointer) 
THEN 


a dbg$nout_arg_vect (.message_pointer); 
END 


S 
BEGIN ! Kill command - bad parse 
dbg$nout_arg_vect (.message_pointer); 
a a dBg$nkill_cmd (message_pointer) 


—t —) —) 5 4 4 


USS OSONOURUIN O00 NAAP WU HOOR NEAR UDO DR We 


END dbg$nout_arg_vect (.message_pointer); 
END; 


Csts$k errord : ! Not parsable. Just verify the comment. 


dbg$nverify_out (.parse_stg_desc (Cdsc$a_pointer]); 
ca dbg$nend_of_input (message_pointer) 


BEES FAW NWIIIrornonononorn 


MEUM =O OONAUES WN $0 ODNAUE WO DONO UE WN OUOONOUS 


pee ww we www ool ole olololololololo) 
=PINIPINIPINIPININININININMANININI NWI AIP NI WNW B&B BPW PW 


3 aay, Ane (.message_pointer); 
034 : 
§ $3 Csts$k_severe] : ! Error in input 
034 BEGIN 
2 034 dbg$nout_arg_vect (.message_pointer); 
§ Ose ca dBbg$nkill_cmd (message_pointer) 
2 035 dbg$nout_arg_vect (.message_pointer); 
: 035 END; gsnout argv ge_p 
‘ 035 CINRANGE ,OUTRANGE) : 
035 BEGIN 
035 A 
035 END; 
§ 035 
035 TES; 
3 O36 
036 ! Perform end of command clean-up. This involves resetting data structures 
2 036 ! shared between the old pebupeer and the new. It also involves releasing 
036 ' all ceqporery memory allocated during the processing of the command and 
$e B03 releasing all unreferenced RST entries on the Temporary RST Entry List. 
936 O36? DBGSEND_OF_CMD(); 
3 368 RETURN; 
38 it 44 
39 370 END; 


-TITLE DBGNCNTRL 
-IDENT \Vv04-000\ 


.PSECT DBGSOWN,NOEXE, PIC,2 
00000 MESSAGE _POINTER: | 
00004 CMD_STG_DESC: 


1 
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13-38 -168c Pe a DEBUG. SRC JDBGNCNTRL .B32; 1 ene (3) 


-BLKB 12 
00010 CMD _VERB PTR: 


-BLKB & 
00014 SAVE_INPUT DESC: 
00018 START_VERIFY POINTER: 

-BLKB 4 


-PSECT DBGSGLOBAL,NOEXE, PIC,2 
00000 DBGSGL_ORIG_ COMMAND_PTR: : 
00004 DBGSGL_UPCASE_COMMAND_PTR: : 

-BLKB” 8 


.EXTRN DBGSEXPAND_DEF INE_NAME 
; $FAO_OUT, DBGSRINIT 
DBGSNOUT_1I 


ND_OF _CINE 
«EXTRN DBGSEND OF CMD, DBGSNOUT_ARG_VECT 
-EXTRN DBGSNMARE_ARG VECT 
-EXTRN DBGSNNEXT-WORB, DBGSNCIS_REMOVE 
-EXTRN DBGSGET_MEMORY, DBGSGET_TEMPMEM 
-EXTRN DBGSREL_MEMORY, DBGSNPARSE_CMD 

CUTE_ CMD 

LANGUAGE 
GBLTYP, DBG$GW_GBLLNGTH 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


001C 00000 -ENTRY DBGSNCONTROL, Save R2,R3,R4 ; 0267 
54 000000006 060 9€ 00002 MOVAB DBGSNOUT . 3 
53 00000000' gf 9E 00009 MOVAB MESSAGE_POINTER, R3 ; 
3 DD 00010 PUSHL R ; 0297 
06 AS 9F 0001 PUSHAB CMD _STG_DESC 3 
52 04 aC 00 0001 MOVL PARSE_STG_DESC, R2 3 
52 0D 00019 PUSHL R 3 
0000v CF 03 FB 0001B CALLS #3, DBGSNGET_CMD 3 
ge 00 50 CF 00020 CASEL STATUS, #0, B4 ; 0299 
0063 OO3E 000C gee Boose 1$: WORD a+ a 3 
$5-18:- : 
$-1$.- ; 
$-1$ ; 
57 11 000 BRE $ : 
00000000G 00 9 FB 00050 2$ CALLS +4't DBGSNINITIALIZE : O32 
33 00 PUSHL R ; 0315 
10 A’ OF 90 -) PUSHAB CMD_VERB_PTR ; 
06 a3 9F 00035C PUSHAB CMD-STG_BESC 3 
000000006 00 9 Fe 003F CALLS #3, PRCSMPARSE _CRD ; 
A E et) BLBC RO, 5$ 3 
046 A2 OD 4 PUSHL  4(R2) ; 0318 
0000v CF } FB 4C CALLS #1, DBGSNVERIFY_OUT r 
3 pd 00051 PUSHL R3 ; 0320 


c—— 


ot WTRL 


; Routine Size: 


0000v 


0000v 


000000006 


143 bytes, Routine Base: 
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CF 
CF 


04 


OOKMNOMOFOOMO KP WO 


OW SW IO Sa SM OTN 


iScseontgge 01:48:59 


5 
fF 00 

DD 62 3%: 
FB 0006 

*)) 6A 4$: 
FB ¢ 

11 00071 

DD 00073 5$: 
FB 0007 

DD 00078 

4} ithe 

E O7F 6$: 
DD 00082 

FB 00084 

FB 00087 

04 O008E 


DBGSCODE + 0000 


AX-11 Bliss-32 ae Fg 
DEBUG. SRC JDBGNCNTRL .B32;1 


CMD_VERB_PTR 
#2. DBGSREXE CUTE. CMD 
RQ, 


4(R2) 
#1, DBGSNVERIFY_OUT 
#1, DBGSNEND_OF_INPUT 


MESSAGE_POINTER 
#1. DBGSNOUT_ARG_VECT 


“i, DEGSNKILL_CMD 
RO. 7$ 
MESSAGE _POINTER 


#1, DBGSNOUT_ARG VECT 
#0, DBGSEND_OF_CMp 


: 


Re Se Se Se Be Se Be Se Se Se Se Se Se Se Se Se Be Se 


a 


ay 


Ab Ab db 4h Ab bh Ab edh ch Ad 
DONO UWVE WO 


SARAN A SSSLSATFLERLIS 


IN 
on 
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3; Routine Size: 


WWAAAI AAI AAW 
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32 bytes. 


i INPUTS 


i OUTPUTS 
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i FUNCTION 


This routine builds a List of buffers to be freed at the end of 
processing a Line of input. 


The top Link in the CIS List represents the current Line ef ee 
There is a field CISSA_BUFLIST which points to a Linked Lis 
of buffers to be freed up. 


eee ere cen + 


: CIS 


BUFLIST 


| 
ROUTINE ADD_TO_BUFLIST (BUFFER) : NOVALUE = | 


‘ 
‘ 
‘ 
. ¢eeeceecesn + $e eemreoee + 
‘ 
> 


eececece «=>! ' : --->, 


; bufptr '=>buf fer : bufptr '=>buf fer 


eee e eae > $a reson oon + 


These phys: et created as we expand symbols that were defined 
with DEF INE/C ND (we need to allocate new buffers to hold the 
expanded command). This 7 aie in DBGSNGET_CMD. These buffers 
are freed in DBGSNCIS REMOVE. 


BUFFER = address of a buffer. This address is to be added to the List. 
DBGSGL_CISHEAD - (implicit input) - current top CIS Link 


The BUFLIST associated with DBGSGL_CISHEAD is added to. 


niin 
NEWLINK: REF vecTonty; 


NEWL 


INK = DBGSGET 


MEMORY (2); 
NEWLINKCO So eerrehe CISHEADLCISSA BUFLISTI; 


NKC1 


NEWL INK 
DaGéG CISHEADEC ISSA’ -BUFLIST] = .NEWLINK; 


000000006 


0000 00000 ADD_TO_BUFLIST: 
WORD 


Save nothing ; 0371 
02 DD 00002 PUSHL ; 04 
00 01 FB 00004 CALLS DBGSGET_MEMORY : 
51 000000006 00 00 000 MOVL baésct CISHEAD, a + 0405 
60 30 ©6Al 00 0001 MOVL (R1)> (NEWLINK : 
F ” 04 aC dO 00016 MOVL BUFFER, e{NERL IND ; 0406 
0 al 50 pO 00018 MOVL NEWLINK, 48(R1) : 0407 
4 0001F RET ; 0498 


Routine Base: DBGSCODE + O08F 


Be Re Be Be Be Oe Oe Oe Oe BH Se Oe Be Ge FH Se Se Be Se Se Se Se Se Se Se Se Se Se Se Oe Se Se Se SH Se Se SH Ge SH Se SH Oe Oe Se Se Se Se SHS Se Se SESH Se Se eee 
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expand defined names. 


oo 
OnOwW 


IMPLICIT INPUTS: 


&& FAWN 


14-Sep-1984 12:17:09 DEBUG. SRC JDBGNCNTRL .B32;1 (5) 
et % ROUTINE DBGSNGET_CMD ( INPUT_DESC, CMD_DESC, MESSAGE_VECT, P_EXPAN)_FLAG) = 
¢ 11 oe 
ts 216 FUNCTIONAL DESCRIPTION: 
85 414 This routine seperates the input Line into one or more DEBUG commands. <cr> 
a6 15 <ff>, and the null character (00) imply end of input Line. Semi-colon (;) 
87 16 implies end of command. 
89 0418 This routine takes care of stripping the comments off the end of 
90 0419 a DEBUG command. For all languages except C, the comment character is 
1 8 0 ‘t", In C, *!" is an operator, so the pair of characters ‘'/*' is 
1 the comment indicator (as in the Langue e). Since there are slight 
04 ¢ differences in the way a Line is to be Uppercased and striped of comments 
Be ge Z we case on the Language a call a specific routine to do these jobs. 
+s Se H FORMAL PARAMETERS: 
98 8 i input_desc - a VAX standard descriptor of the entire input Line 
0429 cmd_desc - upon exit from this routine, a VAX standard descriptor 
1 Be ? of a single potential DEBUG command 
08 04 § message_vect - the address of a longword to contain the address 
04 04 of a message argument vector 
0 Be : p_expand_flag - optional fourth parameter which says whether to 
0436 
0437 
0438 
0439 
0440 
0441 
bac§ 
044 


ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 


09 
19 NONE 
i IMPLICIT OUTPUTS: 
314 NONE 
15 0444 
16 0445 ROUTINE VALUE: 
17 0446 
18 0447 unsigned integer longword completion code 
319 0448 
321 v4 COMPLETION CODES: 
$¢ oth sts$k_warning (0) - the input Line was found to be exhausted 
352 bc88 sts$k_success (1) - the comd_desc was updated to refer to a potential 
$2 R638 DEBUG command 
$$ 0456 sts$k_error (2) - the input descriptor was found to contain nothing 
$8 og t4 but a comment (! in first position) 
$0 944 sts$k_severe (4) - error in input Line 
3 ie i SIDE EFFECTS: 
34 168 ALL lower case alphabetic characters are converted to upper case, except 
35 0464 for strings enclosed withing single or double quote marks. A check 


= 
So 
= 
o 
w 


is made for unprintable characters in the input Line (error message generated 
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and failure return). 


BEGIN 

LOCAL 
CHAR_COUNT 
CHAR” STRING : REF VECTOR [ 
C1S_BESC : REF CISSLINK 
CMD “STRING REF VECTOR C 


Keeps count of characters 

»BYTEJ, Vector of 1 byte characters 

° Current command input stream. 

. BYTEI, Counted string with the expansion of 

the first token, if it has been 

defined with DEF INE/COMMAND 

Says whether or not to expand 
defined names. 

status of calls 

Contains quote char 


EXPAND_FLAG, 


STATUS, 
QUOTE_CHAR, 
QUOTE“FLAG; 


Signifies quoted string 


INPUT_DESC : RE 
CMD_DESC : RE 


es Bes | 


oroek PsByies: 


We don't REF to dbg$stg_desc 
because of the extra longword for 
the initial dsc$a_pointer 


BUILTIN 
ACTUALCOUNT ; 


se 
! where we do not want to is when we are called from DBGSNSAVE_BREAK_BUFFER 
to pick up the rest of a command. 


iF ACTUALCOUNT() LSS 4 
THEN 


i EXPAND_FLAG = TRUE 
EXPAND_FLAG = .P_EXPAND_FLAG; 


: Initialize the command descriptor 


cmd_desc (dsc$b_dtype] = dsc$k_dtype_t; 
cmd_desc ([dsc$b_class)] = dsc$k_class_s; 
cmd_desc [dsc$w_length) = 0; 
cmd-desc [dsc$a-pointer) = 0; 


cmd_desc CLinitial_ptr) = 0; 
: Find a significant character 
char_string = .input_desc (dsc$a_pointer); 
char-count = 0; 
WHILE - input desc Cdsc$w_tength] GTR 0 DO 
IF .char_string C.char_count] NEQ dbg$k_car_return 


1 
1 
1 
! Set the flag saying whether we want to expand defined names. The ca 


-char_string C.char_count] NEQ dbg$k_line_feed 
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1-se -1984 01:38:59 AX-11 BLi 
12786571382 9337 709 DEBUG. SRC) 
AND 
-char_string C.char count] NEQ dbg$k_null 
-char_string C.char_count] NEQ dbg$k_semicolon 
-char_string C.char_count] NEQ dbg$k_blank 
-char_string C.char_count] NEQ dbg$k_tab 
EXITLOOP 
ELSE 
BEGIN 
char count = .char count + 1; 
input desc Cdsc$w_Tength] = .input_desc Cdsc$w_length] - 1; 
END; ‘ 
} Return warning if there was no significant input on the Line. 
if .input_desc Cdsc$w_length] EQL 0 
RETURN sts$k_warning; 
! Set up the start verify pointer. This is done before stripping 
} non-significant input to preserve the indentation. 


start_verify_pointer = .input_desc ([dsc$a_pointer]; 


Update pointer to rest of string 
input_desc Cdsc$a_pointer) = char_string C.char_count]; 


' The next thing we do is check for the first token in the command Line 
being a symbol defined with DEFINE/COMMAND. 


' We need to allocate a new command buffer to hold the expanded 
token concatenated with the rest of the command. 


LENGTH = .JNPUT_DESC LDSC$W_LENGTH) + .CMD_STRING (03; 
NEW_BUFFER = DBGSGET_MEMORYT( .LENGTH+3) /4)3 
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If .EXPAND_FLAG 
THEN 
BEGIN ; 
Cee Ie ee oe (. INPUT_DESC, DEF INE_COMMAND, CMD_STRING) 
BEGIN 
LOCAL 
BUFPTR, ! A pointer into the command buffer 
LENGTH ! The Length of the new command buffer 
NEW_BUF FER; !Will point to the new command buffer. 


GNCNTRL 1b-stp-1986 01:38:59  VANe11 BLiss-32 v4.0-7% : 
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Copy the concatenated strings into the new buffer. 

BUFPTR = CHSMOVE (.CMD_STRING [0], CMD STRING [1], .NEW BUFFER 

BUFPTR = CHSMOVE (.INPOT_DESCCDSC$w_LENGTH], .INPUT_DESCLDSCSA > boINTER?, -BUFPTR); 
Fill in the input descriptor to point to the new buffer. 


INPUT_DESCCDSCSA_POINTER] = .NEW_BUFF 
INPUT-DESCCDSCSWILENGTH] = .INPUT OESCLOSCSw_ LENGTH]+.CMD_STRINGCO); 


! We need to remember to free up the space ecguptes by NEW_BUFFER 
i when we are done processing this CIS Link we 

i put NEW_BUFFER onto the Linked List of ati the buffers allocated 
in this’ fashion. These will get freed up in CIS_REMOVE. 

A 


ADD_TO_BUFLIST (.NEW_BUFFER); 


ot at ae at 
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471 0600 ; Now re-do the code where we find a significant character 


char. eer ing eo -input_desc (Cdsc$a_pointer]; 
char_cou 
waiLe “input desc [dsc$w_length] GTR 0 DO 
IF .char string C.char_count] NEQ dbg$k_car_return 


N 
-char_string pacher_count2 NEQ dbg$k_line_feed 


ger count = .char_count + 
ens desc Cdsc$w_Tength] = ved gga Cdsc$w_length] - 1; 


480 060 
rah oS) -char_string c-cher count) NEQ dbg$k_null 
ret bet -char_string c cher count) NEQ dbg$k_semicolon 
485 +d -char_string C.char_count] NEQ dbg$k_blank 
486 1 ND 
487 061 -char_string C.char_count] NEQ dbg$k_tab 
488 061 N 
489 061 EXITLOOP 
490 061 SE 
491 06 BEGIN 

06 

06 

6 


! Again, if we have no significant input on the Line then 
return warning. 


If .input_desc Cdsc$w_length] EQL 0 
RETURN sts$k_warning; 
Set up the start verify pointer 
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start_verify_pointer = .input_desc [dsc$a_pointer); 
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3 ; | Update pointer to rest of string 
o7 4 input desc Cdsc$a_pointer] = char_string C.char_count]; 


END; 


SESS 


Now case on the language and get the command and uppercase the characters. 


: 
0 
ees 
Oseg CASE... dbg$gb_ Language FROM dbg$k_min_language TO dbg$k_max_language OF 
4 
gece Cdbg$k_macro, dbg$k_fortran, dbgsk bliss, 
0650 dbg$k_cobol obgse basic, dbgé pli, 
0651 dbgSk pascal d g$k_rog. dbg$k_unknown, 
065¢ INRANGE, OUTRANGE): 
$037 status = get_normal_cmd_string(.input_desc, .cmd_desc, .cis_desc, .message_vect); 
0655 Cdbg$k_cJ: 
bees status = get_c_cmd_string(.input_desc, .cmd_desc, .cis_desc, .message_vect); 
0658 Cdbg$k_adaj: 
R028 status = get_ada_cmd_string(.input_desc, .cmd_desc, .cis_desc, .message_vect); 
beet TES; 
Ro0¢ 


oS 
oa 
oa 


If an error occured return with status. 


3 


0665 if NOT .status 

266 THEN 

bere RETURN .status; 

+9 34 Delete all leading end of command signifiers from the input string 

9671 char_string = .input_desc (dsc$a_pointer); 

0678 WHILE .input_desc Cdsc$w_length] GTR 0 

0675 BEGIN 

pee 

po? IF .char_string CO) NEQ dbg$k_car_return 

7 -char_string £0} NEQ dbg$k_line_feed 
1 


-char_string es NEQ dbg$k_null 
gcher string CO] NEQ dbg$k_semicolon 
EXITLOOP; 
input_desc pdechu_longeh) = .input_desc [ s¢Su_length) - 1; 
input_desc Cdsc$a_pointer) = char_string (1); 
char_String = .input_desc [dsc$a_pointer); 


END; 
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GNCNTRL 16-Sep-1984 01:38:59 AX-11 Bliss-32 V4.0-74 Page 14 
yOe600 14-Sep-1984 ee :09 DEBUG. SRC SBeNCNTRY »03951 (5) 
65 94 ! Save a pointer to the new input descriptor so that dbg$nsave_filespec 
$8 695 can use it. 
? 637 save_input_desc = .input_desc; 
2i9 $28 RETURN sts$k_success; Re pe as ait 
; : ‘End o nget_cm 
: INFO#250 L1:0653 etter: 
; Referenced LOCAL symbol CIS_DESC is probably not initialized 
OFFC 00000 DBGSNGET_CMD: 
WORD Save R2,R3,R4,R5,R6,R7,RB,RI,R10,R11 ; 0409. 
5E 08 C2 $0008 SUBL2 3 | 
04 6C 91 0000 CMPB Ss (AP), #4 > 0498 
05 if 00008 BGEQU ; 
51 01 DO 0000A MOVL #1, EXPAND_FLAG ; 0500. 
04 11 0000D BRB 2s 3 
51 10 AC DO OOOOF 1$: MOVL §§P_EXPAND_FLAG, EXPAND_FLAG : 0502 
59 08 AC DO 00013 2$: MOVL CAD _D ; 0507 
69 010E0000 8F D0 00017 MOVL  #17894720, (R9) : 0509 
04 AY 7C OOOTE CLRQ 4(R9 : 0510 
56 04 ac 00 BONS MOVL INPUT_DESC, R6 ; 0516 
5A 04 AG YE 00025 MOVAB 4(R6), R1 : 
58 6A D 4034 MOVL (R10), CHAR_STRING : 
6E D4 0002C CLRL CHAR_COUNT ; 051 
66 T 4043 3$: TSTW (R6) ; 051 
28 13 000 BEQL 5$ 3 
50 00 BES8 QA ett MOVZBL @CHAR SORT COR STAINES, RO :; 0520 
0D 50 91 000 CMPB RO, #T F 
pt 13 OO03A BEQL F 
0A 50 91 00035C CMPB RO, #10 ; 0522 
13. 13 0003F BEQL 4$ $ 
50 0 00041 TSTL RO ; 0524. 
OF 13 00043 BEQL «= 4$ ; | 
38 50 91 00045 CMPB RO, #59 ; 0526. 
9A 13 +t 994 BEQL : 
20 0 91 OO04A CMPB RO, #32 ; 0528 | 
9 13 0004D BEQL 4$ : 
09 0 91 0004F CMPB RO, #9 ; 0530. 
06 12 O83 BNEQ 3 
6€ 4] 0054 4$: INCL CHAR_COUNT : 0535 
66 8B $328 DECW (R6) ; 0536 
D4 11 0005 BRB 3$ ; 051 
66 BS QOOSA 5$: TSTW (R6) ; 054 
03 12 bee BNEQ 6$ : 
011C 31 QO0SE ce) 21$ : 
00000000" Ef 6A 00 ee 6$: MOVL (R10), START_VERIFY POINTER : 0550 
6A 8 6 C1 00068 ADDL3 CHAR COUNT, CHAR_STRING, (R10) : 0555 
03 1 €8 0006C BLBS XPARD_FLAG, 7$ : 0561 
008F 31 of BR F 
04 AS F é 7$: PUSHAB CMD_STRING ; 0564 
9 DD 7 PUSHL & : 
6 bd 00077 PUSHL R : 


Kk 1 
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vitae 19-808 - 1 3be 03:78:38 EoeBUG. SRC DBGNCNTRL.B32;1 (5) 
000000006 90 93 FB 79 CALLS #3, 08 $EXPAND_DEF INE_NAME : 
: E BLBC ~—_—s«aRO,_ 1 : 
04 AE 050 MOVL § CMO_STRING, R7 + 0576 
0 66 3C 000 MOVZWL (RGY, LENGTH : 
1 : A 0008A MOVZBL (R7). R : 
0 1 ¢O 09 D ADDL2 R1, LENGTH : 
0 0 C0 ADDL2 #3. R : 0577 
7E 0 4 €¢7 0009 DIVL3 #4, RO, =(SP : 
000000006 00 01 FB 00097 CALLS #1. DBGSGET MEMORY : 
0 DO 0009 MOVL RO, NEW BUFFER : | 
ok 84 38 bopas moves. (RP «RO (NEW_BUFFER) : om 
§§ 00 BA 66 $f aS MOV (R6), @0(R10), TBUFPTR) : 0583. 
6A 58 D0 OOOAE MOVL NEW BUFFER, (R10) ; 0588 | 
50 67 9A 00081 MOVZBL (R73, RO : 0589 | 
66 50 AO 000B4 ADDW2 RO, (R6) : 
5B OD 90087 PUSHL NEW BUFFER : 0597 | 
FF22. CF 01 FB 00089 CALLS #1, ADD_TO BUFLIST ; | 
+ 6A DO O000BE MOVL (R10), CHAR_STRING 3 0602 | 
6— D4 000C1 CLRL  CHAR_COUNT > 0603 | 
66 8 00C3 8$: TSTW (RO) : 0604 
28 13 0005 BEQL 10$ : 
50 00 BE48 9A 000C7 MOVZBL @CHAR COUNTCCHAR_ STRING, RO + 0606 
0D 50 91 000CC CMPB RO, #T : 
18 13 OOOCF BEQL «=so9 : | 
OA 30 91 00901 CMPB SsaRO, -#10 ; 0608 | 
13 13 000D4 BEQL 6 O9$ : | 
50 03 00006 TSTL RO + 0610. 
OF 13 00008 BEQL «=sO9'S : 
3B 50 91 OO0DA CMPBSséRO, ~#59 > 0612. 
0A 13 000DD BEQL 6-9 3 
20 50 91 OO0DF CMPBsaRO, «#32 + 0614 
05 13 0002 BEQL «6s«O9S$ : 
09 50 91 000E4 CMPBSséRO, #9 > 0616. 
06 12 000E7 BNEQ 108 : 
6£ bg O0E9 9$: INCL CHAR_COUNT 3 0621 | 
66 B OO0EB DECW (RO) : 0622. 
D4 11 OO0ED BRB gg : 0606 | 
66 B5 OO0EF 10$ TSTw (RO) ; 0629 
03 12 000F1 BNEQ 11$ : 
0087 31 000F3 BRW 21$ ; 
00000000° EF 6A DO 000F6 11$: MOVL (R10), START_VERIFY_POINTER > 0635 | 
6A g 6E ci OOFD ADDL3 CHAR COUNT, CHAR_STRING, (R10) : 0639 
OA 00 000000006 99 F 00101 128 CASEB DBGS$GB_LANGUAGE, #0, #10 + 0646 
bo26 Bote bo16 er i Ban ee ee ee 
0016 0036 0016 00119 14$-1 $.- ; 
14$-13$.- : 
14$-15$,- 3 
14$-13$,- $ 
15$-13$,- ; 
14$-13$,- 3 
at ee 
OC AC DD OO11F 14%: PUSHL MESSAGE _VECT > 0653 
85 DD tee PUSHL  CIS_DESC : 


seem 


; Routine Size: 


384 bytes, 


0000v CF 
0000v CF 


0000Vv 
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38 
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00000000° EF 
50 
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1b. 

14- 
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4 fo 128 

a 12D 

oc af DD QO1¢F 
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E 11 00130 

oc af DD 0015F 
50 DD 00142 

0240 8F BB 00144 
9 4 aie 

0 € 140 

6A D 8129 

66 B85 0015 

1B 13 00155 

68 91 00157 
43 13 Bai ee 

68 91 0015C 

09 43 0015F 

68 95 00161 

05 13 beige 

68 91 00165 

08 16 00168 

66 8 Q016A 

01 A& YE 0016C 
DE 11 00170 

56 DO 00172 

01 00 00179 

04 Q017C 

50 04 0017D 

04 0017F 
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AX-11 B 
DEBUG. SR 


igeeze v4.0-7 5. 
CIDBGNCNTRL. B32;1 


HOMER 
#4 oet® RRORMAL CMD_STRING 
MESSAGE_VECT 
CIs DEST 
HMRRG 
art® Re ” CMD. STRING 


MESSAGE_VECT 
CIS_DES st. 

#°MZRG 

#4 ert’ RADA CMD_STRING 
STATUS, “228” 

tR10) CHAR_STRING 
AR_STRING), #13 
AR_STRING), #10 
AR_STRING) 


AR_STRING), #59 


) 
8), (R10) 
SAVE_INPUT_DESC 
RO 
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message argument vector 


! IMPLICIT INPUTS: 


3 tg 70¢ GLOBAL ROUTINE DBGSNKILL_CMD (MESSAGE_VECT) = 

: $75 708 | tes 

13 Be FUNCTIONAL DESCRIPTION: 

13 

'; 578 $8 Invocation ot this routine takes place when an invalid debug command is 
| 3 94 4 encountered during parsing. 

BE 81 FORMAL PARAMETERS: 

; Hy message_vect = the address of a longword to contain the address of a 


NONE 
IMPLICIT OUTPUTS: 

On error return, a message argument vector is constructed 
ROUTINE VALUE: 

An unsigned integer longword completion code 
COMPLETION CODES: 

sts$k_success (1) = success 


BU LS SPLEEN DOOR WOR 


sts$k_severe (4) - failure. message returned. 
SIDE EFFECTS: 
The present input buffer is discarded 
BEGIN 
Simply blow away the rest of the input Line 


—— 
oS 


If NOT dbg$nend_of_input (.message_vect) 
RETURN sts$k_severe; 
RETURN sts$k_success; 
END; ! End of dbg$n_kill_cmd 
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00 ENTRY DBGSNKILL_CMD, Save nothing 979) 


0000 000 : 

04 aC OD One PUSHL MESSAGE VEC’ ; 0742 
0000v CF 9} F 4 CALLS #1, DBGSNEND_OF _INPUT ; 
04 O€ OOA BLBS =O, 18 : 


; Routine Size: 


621 
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50 


21 bytes, Routine Base: 
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: $35 730 1 GLOBAL ROUTINE DBGSNEND_OF INPUT (MESSAGE VECT) = 
; 5 7 ; 1 tee 
; 4 $ r i : } FUNCTIONAL DESCRIPTION: 
3 6 : 5 : This routine is invoked when the present input Line is exhausted. 
3 630 ? : i FORMAL PARAMETERS: 
; 6 § 7 $ 1 i message _vect = the address of a longword to contain the address of a 
3 ? ib : } message argument vector 
: 635 ree 1 i JMPLICIT INPUTS: 
s; 6 765 1! 
2 res yi _— 
; 659 766 i IMPLICIT OUTPUTS: 
; ot the ; : On error return, a message argument vector is returned. 
; ec§ 9770 i ROUTINE VALUE: 
; oF gr : An unsigned integer longword completion code 
: 647 O77 | COMPLETION CODES: 
: ro} arr : sts$k_success (1) = success. input removed 
; $2) O78 : sts$k_severe (4) - failure. message argument vector returned. 
; 658 ora i SIDE EFFECTS: 
: 655 07 4 1: A Link is removed from the head of the command input stream. 
; 656 0783 1! 
; 657 ores 1 te= 
; 658 0785 #1 
3 $23 ores BEGIN 
; yet gree Remove a node from the cis 
; ees ore if NOT dbg$ncis_remove (FALSE, .message_vect) 
; 665 0796 RETURN sts$k_severe: 
; est 0784 RETURN sts$k_success; 
> 669 0796 END; ! End of dbg$nend_of_input 
0000 -ENTRY DBGSNEND_OF_INPUT, Save nothing 
06 aC OD PUSHL MESSAGE_QECT 
000000006 ¢5 PS CALLS #2. DBGSNCIS_REMOVE 
4 g EB O€ BLBS 6: 1$ ¥ 


ee 


NTRL 


; Routine Size: 


25 bytes . 


2 
ohdeom aaa Aye BL ig5-32 We 0-742 


eet ee 
50 01 g° ee sii 1$: eeye #i, RO 


Routine Base: DBGSCODE + 0244 
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: 67) 797 } GLOBAL ROUTINE DBGSNSAVE_FILESP (INPUT_DESC, FILE, MESSAGE_VECT) = . 
: 67 $98] tes 
H ore oy ; : FUNCTIONAL DESCRIPTION: 
; 676 0 1 i This royt tne gathers a file spec from the command Line. Since filespecs 
; 67 7! may be in the form a.b;12, the version number will not be contained in the 
; 67 06 1! command descriptor string as dbg$nget_command regards a ‘;* as end of command. 
3; © 605 1! Consequently, look-ahead must be performed on the entire input Line string 
; 680 bene 7; to locate the version number of a file spec. Quoted filespec strings are 
; 681 07 1! also allowed as this construction is necessary to specify filespecs that 
: re $94 : } contain disk specifiers or sub-directories. 
3 684 \9 1: A filespec is returned in the form of a counted string, the storage for which 
3 23? 3 ' is allocated from non-Listed storage. 
; 687 0818 1 i FORMAL PARAMETERS: 
; 688 psie 1! 
3 p44 pai? ' input desc - the present command VAX standard string descriptor 
: +4 O81? ! tile - the address of a longword to contain the filespec 
: 69 0819 1! message_vect - the address of a longword to contain the address 
3 one oe , } } of a message argument vector 
3 6% oBee i IMPLICIT INPUTS: 
; 697 08 1! 
; 698 0826 1! save_input_desc - VAX standard string descriptor of the rest of the 
; 699 0825 1! complete input Line. 
: 700 08 $ 1! 
: 4h oS i : IMPLICIT OUTPUTS: 
: 70 0829 1} A counted string representing the filspec on success, or a message argument 
: 7046 0830 1! vector on failure. 
; 705 0831 1! 
; 706 sti) 1 ! ROUTINE VALUE: 
: 10 Op8, 1 i An unsigned integer | d completion cod 
3 ‘ unsigned integer longword completion code 
: 709 OBss 1 i ° ’ 
; 710 sti] 1 ! COMPLETION CODES: 
re 4b 0837 1! 
3 ar} ste ' sts$k_success (1) - filespec collected. 
; ay Bef ' ! sts$k_severe (4) - the filespec was not collected. message vector returned. 
; 716 Bie | i SIDE EFFECTS: 
2a 845 1! ° 
; 718 0844 1! Both the command descriptor and the Line input descriptor ony be updated. 
; 719 0845 1! The command descriptor (input_desc) is always updated to reflect exhaused 
: 720 § 1! input. That is, the filespec Ts taken to be everything left in the command 
: Tei 7! string. The input Line descriptor (save_input_desc) will be updated to 
3 ’ ; $ : point past an explicit version number sfring. 
: 726 50 1 ine 
: 725 51 BEGIN 
s; £ $ 2¢ 
eS 085 FORWARD ROUTINE 


coc 


| pRereaaet 


~~ 
VW OOO 
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14-Sep-19 DEBUG. SRC JDBGNCNTRL.832;1 
NEXT CHAR, ' Returns the next character from input 
LOOKAHEAD_CHAR, ! Returns next char but does not 
: advance pointer. 
FILENAME, ! Extracts a file spec name 
FILETYPE, ' Extracts a file spec type 
VERSION_NUMBER ' Extracts a file spec version number 
QUOTED_FILESPEC; i Extracts a quoted filespec 
LOCAL 
NEXT _PTR, ! Pointer to position in filespec 
FILESPEC REF VECTOR C,BYTEJ, |! Contains the file spec 
E REF VECTOR [,BYTEJ, ' Contains the file name 
Y REF VECTOR L,BYTEJ, ' Contains the file type 
VERSION REF VECTOR (,BYTF], ! Contains the file version number 
QUOTED_STRING; ! Pointer to a quoted file spec 
OWN 
ERROR_VECTOR, ! Pointer to message ar nt vector 
CHAR BYTE, ! Character of input buffer. This 
' variable is ‘own’ed to make it a 
' "local global’. 
ERROR _STG_DESC : Sopete desc, ! For error reporting 
CMD_DESC : REF dbgSstg_desc; ! Descriptor for command input 
BIND 
ONE QUOTE = UPLIT BYTE (abgsk quote) . ! for error reporting 
TWO_QUOTE = UPLIT BYTE (dbg$k_dbiquote); ! For error reporting 


ROUTINE NEXT_CHAR = 


‘ee 
: This routine returns the next character of input. This character : 
! may come from the command descriptor or the input Line descriptor strings. 


BEGIN 


! Take the character from the command input descriptor or the Line 
input descriptor. 


IF .cmd_desc Cdsc$w_iength] GTR 0 
BEGIN 
Take the char from the command input buffer 
cmd_desc (dsc$w_length] = .cad done a aa - 1; 


har = d_ desc [dsc$a_poinfer]) <0, 8 


c - (cm : 
cmd_desc fdscSa_pointer) = .cmd_desc dsc$a_pointer] * 13 


a a 


AX-11 Bliss-32 V4.0-74 


F 2 
GNCNTRL 16-Sep-1984 01:38:59 
- Es eo aa a ee he 


P 3 
14-Sep-19 et rs 


0001¢ ERROR, VECTOR: 
$0038 CHAR:  .BLKB 
00 


-6LKB 
00030 CMD_DESC: 


“BLK 
4% ERROR_STG DESC: 


wae 


12 


3 re) i : : Map a <cr> into a semicolon 
: 7 9135 4 if _.char EQL dbgSk_car_return 
: ORS 318 ets 7 anienl 
; char = semicolon; 
; 790 Zi$ 4 END _ 
; 791 917 & 
3 63 ais 3 ELSE 
3; 7 919 & BEGIN 
; 794 0920 4 
; re? , 1 2 sone, he or =“ Line input buffer. 
: ! Check for exhausted input. 
; 538 9 g be : 
; 798 926 & If .save_input_desc Cdsc$w_length] LEQ 0 
: 799 3 5 4 
; 800 9 $ & RETURN sts$k_error; 
; «BU 09 & 
: 80 0928 4 
; 80 0929 & ! We map a <cr> from the cmd buffer to a semicolon. Make sure 
; Hn oe ° ? : that we do not return the semicolon twice. 
: 806 09 ¢ 6 IF .char EQL dbg$k_semicolon 
; 807 Ogez 4 AN 
; 6808 09 4 .(.save_input_desc (Cdsc$a_pointer]) <0, 8, 0> EQL dbg$k_semicolon 
; 809 0935 4 N 
; 810 09 $ : BEGIN 
; 811 09 char = 0; 
3 aig 0938 5 save_input_desc ([dsc$w_length] = .save_input_desc (Cdsc$w_length] - 1; 
; 8 0939 5 save input desc [dsc$a_pointer] = .savé_input_desc [dsc$a_pointer] + 1; 
; 814 0940 5 RETURN next_char (); 
; 815 0941 4 ND; 
; 816 peg & 
; 817 09435 4 bove. tapyt Soot Séectu_ lenges? = save. input desc féectu_tengend - 1; 
; 818 0944 4 char = .(.Save_input_desc [dsc$a_pointer]) <0, 8, 0>; : 
; 819 0945 4 save_input_desc (dscSa_pointer] = .save_input_desc (dsc$a_pointer] + 1; 
: 820 0946 END; 
; as 0947 
3 & ‘ 0948 RETURN sts$k_success; 
: 82 0949 
; 824 0950 2 END; ! End of next_chars 
-PSECT DBGSPLIT,NOWRT, SHR, PIC,0O 
7 00000 P.AAA: .BYTE Hi 
2 00001 P.AAB: .BYTE & 
-PSECT DBGSOWN,NOEXE, PIC.2 


oon NTRL 


; Routine Size: 


WN —OOCOnoOuw 


Sr 


88 bytes ° 


SSSSSSOSOOSS 
M—OCOONOUS wn 


; 


26 serene * 


62 04 
04 

0D 

62 
50 Fa 

50 

38 
38 04 
04 

BA AF 
50 F4 
62 04 
04 

50 


Routine Base: 


ROUTINE LOOKAHEAD CHAR = 
+¢ 


EF 


—opP 
Wor 


60 
BO 
AQ 


OWDunT 


PWWIwn 


9 
D 


000 


9000 


~SWuMom 
COOODOOOCOOo°oo 


SSSSSssss 


SSOOCSOSCSOSSCSOOCSSOSOSOOSCOSOSOOOSOOSOSO 
WA ALAA ONOTOROTOND 2 2 3 2 2 oO 


SSSAAUSRASSRA wos WHS 


WOO "ID O—0— 000 - To - O- 09 OD -—-@ 
Pr rw 


o 
ONO SOON EN] FONMO "ON" AO 
OOOoOoooooooooooo 
COOoooooooooooooooooo 
Fe 
NSS -OONONw™ 


=] 
o 
Oo 


DO 0 
04 0 


ww 


DBGSCODE + 0250 


0004 00000 NEXT_CHAR: 
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p-1984 91:38:38 DEBUG. SRC JDBGNCNTRL.B32;1 . B 
-BLKB 4 
ONE _QUOTE= P.AAA 
TWO-QUOTE= P.AAB 
-PSECT DBGSCODE,NOWRT, SHR, PIC,0 
WORD Save R2 ; 0888 
MOVAB CHAR, R2 ; 
MOVL CMD _DESC, RO ; 0900 
TSTW (ROT : 
BEQL 1$ : 
DECW (RO) 3; 0906 
MOVB a4(RO), CHAR ; 0907 
INCL 4(RO) ; 0908 
CMPB CHAR, #13 ; 0913 
BNEQ 4$ : 
MOVB #59, CHAR ; 0915 
Bee 4$ ; 0900 
1$: MOVL SAVE_INPUT_DESC, RO ; 0924 
TSTW (RO) ; 
BNEQ 2$ 3 
nov #2, RO : 0926 
2s: CMPB CHAR, #59 3; 0932 
BNEQ : 
CMPB a4(RO), #59 3; 0934 
BNEQ 3$ ; 
CLRB CHAR ; 0937 
DECW (RO) ; 0938 
INCL 4(RO) ; 0939 
pete #0, NEXT_CHAR : 0940 
3$: MOVL SAVE_INPUT_DESC, RO 3; 0943 
DECW RO) é 
MOVB a4(RO), CHAR : 0944 
INCL 4(RO) 3; 0945 
4$: MOVL #i, RO ; 0948 
RET ; 0950 


i This routine is Like NEXT CHAR in that it returns the next character, 
' but it does not advance the pointer. It can this be used for lookahead. 


GNCNTRL 16-Sep-1984 01:38:59 AX-11 Bliss-32 V4.0-74 Pa 5 
ope 1a-$ep-19 4 93:78:38 DEBUG. SRCIDBGNCNTRL -B3 31 - BS 
3 3 +t4 BEGIN 
: 9 965 ' Take the character from the command input descriptor or the Line 
3 ? 308 } input descriptor. 

5 v4] se If .cmd_desc Cdsc$w_length] GTR 0 

; a 96 THEN 

: B44 970 4 BEG] 

; oe? 971 4&4 char = .(.cmd_desc Cdecta_ pointer) <0, 8, 0>; 

; $ bare 4 ' Map a <cr> Tnto a semicolon 

; 84 9735 & If .char EQL dbg$k_car_return 

; 848 974 & THEN 

; Bop 975 & char = dbg$k_semicolon; 

; 850 376 4 END 

; 851 0977 3 ELSE 

3 S26 0978 4 

; #85 0979 4 ' Take the character from the Line input buffer. 
; 854 0980 4 ! Check for yy. eae 

; 855 0981 4 IF .save_input_desc CdscSw_length] LEQ 0 

; 856 0982 4 TH 

; 857 0985 4 RETURN sts$k_error; 

:; 858 0984 4 

; 859 0985 4 ' We map a <cr> from the cmd buffer to a semicolon. Make sure 
: 860 09 4 ' that we do not return the semicolon twice. 

; 861 0987 4 ' 

3 B66 0988 4 If .char EQL dbg$k_semicoion 

; 86 0989 4 AND 

; 864 0990 4 .(.save_input_desc Cdsc$a_pointer]) <0, 8, 0> EQL dbg$k_semicolon 
: 865 0991 4 HEN 

g B66 0992 5 BEGIN 

3; & 0993 5 char = 0; 

; 868 0994 5 RETURN lookahead _char(); 

; 869 0995 4 END; 

: 870 0996 4 

; 871 0997 4 char = .(.save_input_desc [dsc$a_pointer]) <0, 8, 0>; 
3 376 0998 3 

, B7 0999 

3; 874 1000 RETURN sts$k_success; 

; 875 1001 2 END; ! lookahead_char 


0004 00000 LOOKAHEAD CHAR: 
.@ORD 


Save R2 ; 0958 
52 00000000" EF 9 90002 MOVAB CHAR, R2 : 
5 10 A2 D0 000 MOVL  CMD_DESC, RO : 0968 
0 L 000D TSTw (ROT F 
0 OO0F BEQL =ésé1$ ; 
62 04 BO 90 00011 MOVB a4(RO) GHAR + 0971 
0D 62 91 15 CMPB  =s CHAR, #1 : 0973 
B 1 18 BNEQ ; 
62 B 9 1A MOVB #59, CHAR : 0975 
1 iD BRB 4$ : 0968 
50 Fe A2 D 1F 1$: MOVL § SAVE_INPUT_DESC, RO > 0981 
0023 (RO) ; 


2 
GNCNTRL ihes -1984 01:38:59 AX-11 Bliss-32 V4.0-74 P 6 
iran tt ea een TBs Pb: F5:83 «| oka. caclapancwthy 635s allt 5; 
4 12 00 BNEQ 2 | ; 
50 2 : 3 MOVL $3, RO + 0983 
bf) 2 91 00028 2$: CMPB HAR, #59 + 0988 
D if BNEQ : 
38 04 80 9 CMPB 94 (RO), #59 + 0990 
12 BNEQ $ : 
62 94 000 CLRB = CHAR + 0993 
(4 OAR 0 Fe 0 5 CALLS #0, LOOKAHEAD_CHAR > 0994 
5 F4 v3 B09 0030 3$: MOVL § SAVE_INPUT_DESC, RO : 0997 
: 04 8 3 904] MOVB a4(RO), CHAR : 
1 D 45 4$: MOVL #1, RO t 1000 
04 00048 RET : | 


; Routine Size: 73 bytes, Routine Base: DBGSCODE + 0285 


; 876 100 ' 
3; 877 100 ' 
; 878 1004 ‘ 
; 879 1005 ‘ 
abe Faas. 
: 88 1008 ROUTINE FILENAME = 
a oes Seer 
; 885 1813 i ‘This routine collects the filespec file name string. That is, all characters 
: 886 IOlg ' up to a ‘.* or end of Line. 
; 887 101 !== 
; 888 1014 
3 et a BEGIN 
; 891 1017 LOCAL 
; O36 1018 NAME _BUF : REF VECTOR C,BYTE), ! Contains the filename string 
3 ae7 191? 1; ! Counter 
; 895 1021 ! The filename cannot be longer than the command input buffer. Get storage 
3 £98 8 ¢ : to hold the name string. 
3 O38 \% : name_buf = dbg$get_tempmem (( md_desc Cdsc$w_length] / ZUPVAL ) + 1); 
: 900 102 
3 $03 1097 Take characters up to a dot, olon, or blank 
: 90 1089 name_buf (0) = 0; 
iB te ae 
; 208 108 WHILE “char NEO dbg$k_dot 
; aoe H+ : .char NEQ dbg$k_semicolon 
: 910 1036 4 BEGIN 
5. PT + 4 name_buf (0) = .i; 
: aig 1 3 4 name_buf [.i] = .char; 
; 91 + 4 {is .%¢t; 
3; 9146 1040 4 


J 2 
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vOe~000 10-385-1 98e 9379589 DEBUG. SRC SaQnCNTRL 63951 . +} 


| 
| 
‘¢ 
! aFOO(parami,param2,...) or @F00 paraml, param2, ... 


; 313 ! 1 ; heck for Left paren or blank. This could be the case 
: 319 1 rk 4 ‘ 

3 318 1044 4 lookahead _char(); 

; wi 1045 4 IF .char EQ. dbg$k_left_parenthesis OR .char EQL dbg$k_blank 
; 920 1 re 4 THEN 

; 921 + 4 EXITLOOP; 

3; F ¢ 10468 4 

3; 9 1049 4 next char (); 

; 926 1050 END; 

; 925 1051 

; % $ 1926 RETURN name_buf (0) 

2 8 1982 END ! End of fil 

; 9 s ! End o ename 


001C 00000 FILENAME: 


wo Save R2,R3,R4 : 1008 
54 00000000' EF 9€ 0000 MOVAB CHAR, ; 
50 10 84 3¢ 9900 MOVZWL @CMD DESC, RO + 1024 
50 04 C6 0000D DIVL2 #4, RO ; 
01 AO OF 9019 PUSHAB 1(RO) : 
000000006 00 01 FB 001 CALLS #1, DBGSGET_TEMPMEM ; 
52 50 00 OOO1A MOVL RO, NAME BUF F 
62 94 0001D CLRB = (NAME_BUF) + 1029 
53 01 DO O001F MOVL #1, : 1030 
50 64 9A 90022 1$: MOVZBL CHAR, RO + 1032 
2€ 50 91 000 CMPB RO, #46 : | 
22 13 900 8 BEQL F 
38 0 91 0002A CMPB SS séRO, «#59 + 1034 
1D 13 00020 BEQL F 
62 53 90 0002F MOVE I, (NAME BUF) ; 1037, 
834 50 90 00032 movB RO, (1)+TNAME_BUF J > 1038 
FF7C CF 00 FB te CALLS #0, LOOKAHEAD_CHAR : 1044. 
28 64 9 000 CMPB  =s- CHAR, -#40 > 1045 
0C 13 0003 BEQL F 
20 64 91 0004 CMPB =s-s CHAR, «#32 F 
07 13 0004 BEQL ; 
FFIS CF 00 FB 0004 CALLS #0, NEXT_CHAR + 1049. 
50 BS td pence 2s SOUL —sOMAME_BUF, RO 1985 
Be titers RET 2 + 1054 


; Routine Size: 80 bytes, Routine Base: DBGSCODE + O2FE 


: 929 1055 

; 9350 1928 ! 

. on 

: O38 1089 

: 934 1060 : 

; 935 1061 

; 936 1062 ROUTINE FILETYPE = 


kK 2 
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$ o38 1063 

3; 9 1 lee 

; 9 § 1065 ' This routine collects the filespec file type string. The file type 

3 acy } } consists of all characters between ‘.' and ‘;’. 

; ak 1 3 

; 94 1 BEGIN 

: 946 1070 

> 945 + 14 LOCAL 

: Bee 1 i TYPE_BUF : REF VECTOR C,BYTE), ' Buffer for file type 

3 ote 1974 I; ' Counter 

; 4 + 1 The file name cannot be longer than the command buffer. Get storage. 
3 Be) 1997 type_buf = dbg$get_tempmem (( .cmd_desc Cdsc$w_length] / ZUPVAL) + 1); 
3 32g 1079 

; 954 1080 ' Take chars up to a semicolon, left paren, or blank. 

: ee 1082 toce tel C86 6 

b ype _bu =U; 

; 957 1988 i= fT; 

; 958 1084 

; 959 1085 WHILE .char NEQ dbg$k_semicolon 

: 960 1086 

: 961 1087 4 BEGIN 

; +4) 1088 4 type_buf (0) _= .i; 

3 36? 1089 4 type_buf [.iJ] = .char; 

: 1090 4 iz .i¢tls; 

; 965 1091 4 

; 966 1996 4 ' Check for left paren or blank. This could be 

: +4 3 ¢ ? } @F00.COM(param!,param2...) or @FO0.COM param1, param2, ... 
: 969 1095 4 lookahead _char(); 

: 970 1096 4 IF .char EQL dbg$k_left_parenthesis OR .char EQL dbg$k_blank 
; 971 1097 4 THEN 

: 97 1098 4 EXITLOOP; 

; 97 1099 4 

; 974 1100 4 next char (); 

; 975 1101 END; 

; 976 1106 

3; 977 110 RETURN type_buf (0); 

3; 978 1104 

; 979 1105 END; ! End of filetype 


001C 00000 FILETYPE: 
WO 


Save R2,R3,R4 : 1062 

54 00000000° EF H 00 MOVAB CHAR, R& : 
10 4 ¢ 09 MOVZUL ScMD DESC, RO ; 1077 

01 AO OF 0 19 PUSHAB 1(RO) : 

000000006 99 gi FB 13 CALLS a, DBGSGET  TEMPMEM 
23 84 § 1D CLRB 3s ( TYPE_BUF) > 1082 


2 
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x 01 1F MOVL #1, I : 1083 
B 64 B? 6 1$: CMPB HAR, #59 : 1085 

1 13 BEQL $ : 
62 53 9 0 MOVE =i, (TYPE ByF : 1088 
834 6 90 0 A MOVB CHAR, (IS+CTYPE_BuUFI : 1089 
FF34 CF 0 FB 00 4 CALLS #0, LOOKAHEAD_CRAR : 1095 
28 64 91 000 CMPB HAR, #40 t 1096 

.- = 4 : BEQL 3 

20 64 91 0 CMPB HAR, #32 3 

07 13 000 BEQL : 
FECD CF 00 re 09 D CALLS #0, NEXT_CHAR t 1100 
DE 1 0 42 BRB + 1085 
50 DO 00044 2$: MOVL ‘TYPE_BUF, RO t 1103 
04 00047 RET + 1105 


; Routine Size: 72 bytes, Routine Base: DBGSCODE + 034E 


; 980 1106 

; 981 1107 : 

; 98 1108 ! 

; 98 1109 ! 

; 6984 1110 : 

; 985 1111 : 

; 986 Wig 

3; 987 111 ROUTINE VERSION_NUMBER = 

; 988 1114 

; 989 1115 '4+ 

: 990 1116 ! This routine collects a filespec version number string. That is, all numeric 
; +4 bE 2 characters following a ';* are taken to be the version number characters. 

; 393 1119 

: 994 1120 BEGIN 

; 995 1121 

; 996 11 ; LOCAL 

s er 11 VERSION_BUF : REF VECTOR C,BYTEJ,  ! Holds the version string 

; 998 Ais ‘ ' Counter 

; 999 1125 FLAG; ! Indicates end of input 

; 1000 1126 : 

: 1001 1127 ! Allocate storage to hold the string. 

3 1008 1128 ! The version number can be no longer than the save input buffer ( the rest 
; 100 1129 ! of the parse Line buffer), plus one for the count and one for the 

3 1004 1130 ! semicolon. 

; 1005 13) : 

: Hs 3 11 ; version_buf = dbg$get tempnen 

: 100 11 (.save_input_desc Cdsc$w_length]+5) / Z%UPVAL); 

; 1008 1134 

3; 1009 1135 : 

3 Hy 4 i § : The first character will always be a semicolon. Store this character. 

: ots 1138 version_buf fia = ,char; 

> 101 1139 version-buf (0) = i; 

3; 1014 1140 

3: 1015 1141 F 
3 1018 1146 Aquire the version number chars. Take characters as long as they are alphanumeric 
; 1018 1144 i= 2; 


Mm 2 
vos-000 1ec$ep-198e 12:17:09 EDeeuG. SRCSDBGNCNTAL -039; 1 uel 


003C 00000 VERSION_NUMBER: 


| 
; 1019 1145 flag = false; | 
; 1020 1138 next char (); 
1053 2 WHILE .char GEO ‘0 
3 -char *0" 
we ig nee 
3 -char — 
; 1025 118) dO 
; 10 $ 1126 & BEGIN 
; 10 V2 4 version_buf (0) = .i; 
; 1028 1154 4 version_buf (.i] = .char; 
; 1029 1155 4 's8.,3 7 3 
; 1050 1128 4 
; 1031 11 4 
; 10 ¢ 1138 & ! Check for exhausted input 
; 10 1159 4 : 
; 10 1160 4 IF NOT next_char () 
: 1036 i162 § BEGIN 
; 1939 1168 : flag = true; 
; 1038 1164 EXITLOOP; 
3; 1039 1165 4 ND; 
; 1040 1166 4 
3 1041 1167 END; 
3 Hk 1168 F 
3 104 1169 ! If no numerics were read, a version number was not present. In 
3 ee 1309 that case, remove the semicolon from the buffer. 
3 1046 11% IF .version_buf(0J EQ. 1 
3 1047 117 THE 
3 1048 1174 version_buf(0) = 0; 
3 1049 1175 
; 1920 1178 Return the last character to the input buffer, if it is not a semicolon 
5 1026 1178 IF NOT .flag 
3 105 1179 AND 
3; 1054 1180 char NEQ dbg$k_semicolon 
3; 1055 1181 THEN 
; 1056 1134 4 BEGIN 
3 1057 1185 4 save_input_desc (Cdsc$w_length] = .save_input_desc Cdsc$w_length] + 1; 
; 1058 1184 4 save_input_desc Cdsc$a pointer] = .savé_input_desc (dsc$a_pointer] - 1; 
: 1059 1185 4 (.save_input_desc CdscSa_pointer]) <0, 8, 0> = .char; 
: 1060 1186 D; 
3 1061 Ht 14 
3 1966 1188 RETURN version_buf (0); 
; 106 1189 
3 1064 1190 END; ! End of version_number 
5 00000000" EF 9€ 0000 mova | enaR, ase ake 
3 F4 5 } 09 MOVZWL asAve INPUT_DESC, RO ; 1133 
é . 0 ADDL #5, R ; 
7E 4 C? 0001 DIVL #4, RO, -(SP) : 


N 2 
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w oof YW Ofw 


000000006 Q Qi F 14 CALLS ae DBGSGET_TEMPMEM : 
: p 1B MOVL VER UF : 
01 A : 1 MOVB cui TVERSION BUF ) + 1138 
6 19 0 MOVB , (VERSION_BUF) + 1139 
0 7D MOVa + 1144) 
fsaw: 50 BF 0005 18: HOV SBL ci jnNtXy—cHan : 4128 
0 54 91 8 CMPB Ry, 48 : 
17 1F 00 BLSSU BS. ; | 
39 50 91 000 CMPBséRO, «#57 + 1150) 
6 28 $6 Sooza eee” f° version. BUF? 2115 
ase 2 38 $6 D MOVB RO, (1) {VERSION 8UFI : 115 
FE81 CF 00 Fe 0041 CALLS #0, NEXT_CHAR + 116 
E4 50 €£ 00046 BLBS = RO, 18 : 
54 01 00 0004 MOVL #1 : 116 
01 62 91 0004C 2$: CMPB (VERSION. BUF), #1 + 117 
02 12 0004F BNEQ 3$ F 
62 94 00051 CLRB (VERSION _BUF ) + 117. 
12 54 €E8 00053 3s: BLBS LAG, 4$~ + 117 
38 65 91 00056 CMPB CHAR: #59 : 118 
0b 13 00059 BEQL 4$ : 
50 F4 AS «DO 00058 MOVL § SAVE_INPUT_DESC, RO : 118 
60 B6 0005F INCW &R RO) : 
04 AO D7 00061 DECL (RO) 11 
04 80 65 90 00064 MOVB CHAR @4(RO) : 11 
50 52 DO 00068 4$: MOVL VERSION _BUF, RO : 11 
04 00068 RET : 11 


; Routine Size: 108 bytes, Routine Base: DBGSCODE + 0396 


3; 1065 1191 

: 1066 1138 ! 

3 H's 4 119 ! 

: 1068 1194 ! 

: 1069 1195 ! 

3; 1070 hb : 

; 1071 119 

: 107% 1198 ROUTINE QUOTED_FILESPEC = 

: 107 1199 

3 1074 1500 !ee 

; 1075 1201 ! This routine collects a quoted tjhespec string. That is, all characters 
3 1976 1 4 : sqnine between * and * or " and *' are taken to be filespec string characters. 
g ore : + If a termnal * or " is not ennauitered. an error message is produced. 
{1080 1508 BEGIN 

: 1081 1 8 

: 1086 1208 LOCAL 

3; 108 1209 ' Counter 

3; 1086 1210 QUOTE : BYTE, i Holds * or "* for error message 
: 1085 1211 TEMP FICE SPEC BUF : REF VECTOR fF -BYTED. i TEMP mutter for filespec 
: H+ : if FILESPEC_®UF : REF VECTOR £.BYTE]: | Buffer for spec string 

: H's 4 : i : The first non-blank character must be a quote or we report failure. 


3 
opr 8ke $2:99509 


Is 
IF .char = dbg$k_quote 

-char NEQ dbg$k_dbiquote 

RETURN sts$k_error; 


quote_char = .char; 


SESSSISISS 


AX-11 
DEBUG. SRC JDBGNCNTRL .B 


cementneneee, 


Bliss-32 V4.0-74 P 
$ : $3.1 wine BS 


! we must allocate non-Listed storage to contain the quoted filespec 


dd od tt oe oe wd Sd wd 


! 

! since we don't want it to disappear at the end of command clean-up. 

! First we must allocate Listed storage to hold the filespec while we 

' get the characters since the maximum possible length of the buffer 

! is the Length of the command buffer + the Length of the input buffer. 
' Allocating a non-Listed buffer of this size would be a waste. 


ve_input gesc CdSc$w_length]) / ZUPVAL) + 
(0) = 0; 


sa 
temp_filespec_buf 
next_char (); 


' 
} is found, produce an error message. 
i=; 
WHILE .char pe dbg$k_quote 
-char NEQ dbg$k_dbiquote 

BEGIN : 
temp_filespec_buf [0] = .i; 
temp_filespec_buf [.i] = .char; 
re Fe 
IF NOT next_char () 
THEN 

BEGIN 


BURNEY SOWNE AR WHOS USAR ANS 


! No terminating quote mark - error 


—) st et td td td _  —) — 8 4 8d td td — tt tt 


temp_filespec_buf [0] = 


ELSE 
0); 


ee el el ll el el el el el el lt el el el el lt el ll el lt ll ll ell ll ll ll lt lt lt ll ll lt lt cll lt lt ll cls al lt lt cl lt lt lt lt cl ell cls lt elt lt lt elt cl 
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MITUTUNOROPURORoRNofonroforononononorononononononorononopornoropnonn 

, le ett et ee td ed ed 

Owns —OOo@ VFWN 0 OF VNOUE WN "OO 0OONO 

FUP OS SUPT OR OO TB BBS BS BB BANANA ANN MANA MMA MA AMMAN NAMA MAMMA 


ee el le el el el el ll el ol el el el el el el elt el ll ll cell cel elt lls lt cl lly cl cl cl ls lt lt lt lls el 


RRRERS RoRoRoRoRoNoonon 3 oe 
SSEESALESSSEURUNS SVEN 


ed ed ed ed 


a 
Be Be Oe Oe Be Oe Ge Be Oe Be Ge Se Ge Bee Se Oe Ge Oe Be Be Se Se Se Oe Oe Se Ge Se Be Hs Se Sse Ge Ge Se Ge Oe Se Se St Se Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Se Ge Ge Ge Ge 


1 
temp_filespec_buf = dbgSget_tempmem (((.cmd_desc Cdsc$w_ length’ . 


Get characters until encountering a second quote. If no second quote 


Don't print the Last char which may be a spurious <cr> or semicolon 


( FE teen. ft honpee Jat CO] GTR O 
-temp_filesoec_buf [0] - 1 


error_stg_desc pgscBa_pointer) : tenp. ti lespec_buf Fad: 


error_stg_desc [dsc$w_length] = .temp_filespec_bu 
-error_vector = dbg$nmake_arg_vect (dbg$_noend, 3, error_stg desc, 
a . vith wads (3 -quote_char EGL dbg$k quote 
THEN one_quote 


ELSE two_quote)); 


wn 
So 


3 3 
16-Sep-19 
14-Sep-19 


RETURN sts$k_severe; 


! End of quoted_filespec 


.te 
buf 


OOFC 00000 QUOTED_FILESPEC: 
.WORD 


EF 


SO 


OVw7noewrwow" 


wy Wo 
MOMNROOCOWDOOON—ONoO 


"Pol: 


OoOWw 
SSSSSssesssssss 
COOOCOOCoOOCoCOoCOoOoCOooo 
COOOCCCOCOCOCOOCoOooO 
TUT —* —* 2 
VIN ONO Fr OF &— 


Ss 


WW POD FO "*AO0M 
= 


338 
Mmr"O FP OvuUTU™T > 


oo 
wie 


Ssse 


—N POW 
OOCOOoOoOooOoooo°oo 


oo pap Ap 4g 


co 
Sse. 


j 
é 1147 1273 
F 1333 1276 : 
MR BRS vo; 
ie 3 
311 : 107 
: 1 : ; e} from the temporary buffer. 
311 1 : 
311 1 Hf filespec_buf = gbgS9 
3 11 3 1 se filespec_buf (0) = 
: aE : ¢ ch$move 7. filespec_ 
5 1161 1287 RETURN filespec_buf (0); 
; 1108 1288 
3; 116 1289 2 END; 
57 00000000° 
50 
27 
22 
50 
54 
50 10 
51 F4 
50 
50 
01 
000000006 00 
52 
mu Ue 
33 
9 
22 
6 
ase 
FEOO CF 
E4 
} 
| 
| 
| 


temp_f 


ri 


9:38 AX-11 


' Now allocate the semi-permanant dynamic buffer and copy the chars 


et_memory((.temp_filespec_buf [0] / ZUPVAL) + 1); 
espec_buf [0] 


ilespec_buf [1], filespec_buf ([1]); 


1$: 


2s: 


Save R2,R3,R4,R5,R6,R7 
HAR, R? 

CHAR, RO 

R o 39 

RO, #34 

1$ 

#2, RO 

RO, QUOTE_CHAR 
acMD_DESC, 
@SAVE_INPUT_DESC, R1 
R1, RO 

#4, RO 


RO) 
#1, DBGSGET_TEMPMEM 
0, TEMP_FICESPEC_BUF 
MP ESPEC_BUF) 


RO. #34 

I, (TEMP_FILESPEC_BUF) 

RO. (1) +0 TEMP_F ILESPEC_BUF J 
#0. XT_CHAR 

(TEMP_F ILESPEC_BUF ) 
(TEMP_FILESPEC BUF), RO 

4$ 


Bliss-32 V4.0-74 
DEBUG. SRC JDBGNCNTRL .B32;1 


row 


; Routine Size: 


Wao roronononrnrrnn 


QLEARANLSSSLESEANLSE 


oO 
oo 


ee ee ee ee ed et ed od 


Seer] SANS NSN NG 
ee ll a a a a ad ed a a 


Be Be Oe Os Oe Be Oe Be Ge Be Be He Oe Be Be Se Se Se Se Be Ge Se Oe Oe oe 


WA 


— se 
uwn-o 


> 3 
- 16-Sep-1986 01:38:59  YAX=11 BLigs-32_v4.0-7% Page 34 
: 1ex8eb=198e 12:19:09 — EdgauG. SRCSDBGNCNTL -BS0; 1 28° 8) 
: | 


01 A 


A (TEMP FILESPEC_BUF), 1(FILESPEC_BUF) 


CESPEC_BOF, RO 


5 4 00069 3$: CLRL R0 3 1259 
$2 68 4$: MOVE RO, (TEMP_FILESPEC_BUF) : 
08 A 01 A 06 MOVAB 1(R2), ERROR STG DESC+4 : 1265 
A? 38 38 MOVZBW CTEMP_FILESPES BOF), ERROR_STG_DESC : 1266 
27 4 9 9077 cee QUOTE“CHAR, #39 + 1269 
50 00000000° FF 9 a Rov ONE _QUOTE. RO ; 
50 00000000" EF 9E 90 5$ MOVAB TWO_QUOTE, RO ; 
0 oD rs} PUSHL RO : 
1 0D 000 PUSHL #1 : 1268 
06 A? OF PUSHAB ERROR_STG_DESC : 
93 DD 0009 PUSHL : 
000281D0 8F oD 00095 PUSHL #164304 ; 
000000006 00 95 F 0098 CALLS #5, DBGSNMAKE_ARG_VECT ; 
FC 7 0 00 OO0A MOVL RO, SERROR_VECTOR : 
0 04 DO O00A6 MOVL #4. R : 1273 
04 000A9 RET : 
50 62 9A OOOAA 7$: MOVZBL (TEMP_FILESPEC_BUF), RO : 1283 
50 04 C€6 OOOAD DIVL #4, RO 3 
01 Aad 9F 0008 PUS 1(RO) : 
000000006 90 gi 008 CALLS #1, DBGSGET_MEMORY ; 
6 $ OOBA MOVL FILESPEC_BU 3 
6 00 ; 
66 0 F 
50 $ 
56 F 


: Start of executable code for dbg$nsave_filesp 
cmd_desc = .input_desc; 

error_vector = .message_vect; 

: Obtain the first non-blank character 


next char (); 
WHILE .char EQL dbg$k_blank 


next_char (); 


Check for a quoted file spec 


iF ( quoted_string = quoted_filespec () ) NEQ sts$k_error |! sts$k_error means 
THEN ! mo quotes 


| 
| 
F 6 
D0 R 
6 90 00080 MOVE (TEMP _FILESPEC_BUF), (FILESPEC_BUF) ; 1284 
0 9a 000C MOVZBL (FILESPEC BUF); RO : 1285 
28 MOVCS R 
F 1287 
1289 
Routine Base: DBGSCODE + 0402 
: Check for an error 


> bd 


VIFUN (CO OOVNOAVE WN @OOOVNOM 


— —) ss 4 9 8 


Www 


SBBVSAPUNASSRVF AFP WV OOIRAR OOD 
OO NA VE WO OONOAUE WN "O0O@ 


a a ea a 8 a a 2 —) — 2 ts a 4 1 
PIMOPIPIPOPUPIRD 8 0 2 2 ot ot 


Rororonorononornononoforenofeorefunony 


+ 8 4 —s 4s bd 2d 2 2 2d 9 4 4 4+ 4 _» + _» _» _» —» _» _b _» _» _5 _» _» _2 _» _» _» _» _» _» _» _» _» _» _» _a _» » 5s 


WO O@nOufun— 
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3 
ibese “19 1:38:59 AX-11 Bliss-32 v4.0-74 2 5 
1easeb- lobe 93:78:38 {EBUG. SRC Seaucutin 035: 1 = BS 
If Quoted string EQL stsS$k_severe : 


RETURN sts$k_severe 
ELSE 


BEGIN 
file = .quoted_string; 
RETURN sts$k_success; 
END; 
File spec wasn't quoted. Get the file name. 
if ( mame = filename () ) EQL sts$k_severe 
RETURN sts$k_severe; 


: Get the file type 
iF ( type = filetype () ) EQL stsS$k_severe 
RETURN sts$k_severe; 


: Get the version number 
if ( version = version_number () ) EQL stsSk_severe 
RETURN sts$k_severe; 


Now put the filespec together 


filespec = dbgsget memory 

({.name (0) + .type(0) + .version(0)) / ZUPVAL) + 1); 
next_ptr = ch$move (.name [0], name [1], filespec(1)]); 
next_ptr = ch$move (.type [0], ty e (1), .next_ptr); 
ch$move (.version (0), version [ j onext_ptr); 
filespec (OJ = .name fo} + -type 63°+ .vérsion (0); 


-file = filespec (0); 
RETURN sts$k_success; 


END; ! End of dbg$nsave_filesp 
O7FC 00000 ENTRY DBGSNSAVE _FILESP, Save R2,R3,R4,R5,R6,R7,- =; 0797 
5a 00000000" EF 4 9902 MOVAB CMO DESC, R10 : 
6A 4 AC D MOVL §INPOT_DESC, CMD_DESC > 1295 
BCAA cat D0 9 MOVL SSAGE_VECT, ERROR_VECTOR > 1296 
FD cf 00 FB 00012 1$: CALLS #0, NEXT CHAR : 1301 
0 FO AA 91 0001 CMPB CHAR, #32 : 1302 


F 3 
ation 16-Sep-1984 01:38:59 Ax-11 oti s-32 v4.0-74 Page 36 
ra tah 1o=808= 1382 93:79:38 DEBUG. SR bi SSecacutie o3os1 ° (BS 
FS) (13 18 is : 
FFI —sOCE : F 1 CALLS ‘ QUOTED _FILESPEC : 1309 
2 : CRBL TED_STRING, #2 : 
| 04 Di 00 CMPL  QUOTED_STRING, #4 : 1315 
8 1 A BEQL 3 
08 aC p MOVL §§ QUOTED_STRING, aFILE : 1320 
68 11 BRB + 1321 
FDFS cf FB 032 2$ CALLS #0, FILENAME : 1327 
2 DO 000 MOVL RO. NAME : 
04 D1 O003A CMPL =sNAME, #4 : 
1A 13 00 D BEQL : 
FE3B cf 0 FB F CALLS #0, FILETYPE + 1334 
9 0 DO 00044 MOVL RO, TYPE : 
04 bt 0047 CMPL =sCTYPE, #4 : 
0d 13 000A BEQL ; 
FE76 ct 90 FB 0004 CALLS #0. VERS ION_NUMBER + 1341 
8 0 pO 00051 MOVL = RO VER SION” : 
04 58 D1 00094 CMPL VE ERS] : 
04 if 0057 BNEQ ; 
50 04 D 90099 3$: MOVL a. RO + 1343 
04 005¢ RET : 
57 62 9A 0005D 4$: MOVZBL (NAME), R7 : 1349 
50 69 9A 00060 MOVZBL (TYPE). RO : 
57 50 CO 00063 ADDL2 RO ; 
51 68 9A 00066 MOVZBL (VERSION), R1 : 
57 51 C9 00069 ADDL , R? ; 
50 57 04 €¢7 0006C DIVL3 #4. R7, RO : 
01 Aad 9F 00070 PUSHAB 1( : 
000000006 00 gi FB 00073 CALLS #1, DBGSGET_MEMORY : 
56 0 oO Boor A MOVL RO, FILESPET 3 | 
50 $2 9A 90 7D mOVZBL ( >, RO : 1350 
01 «Ab 01 A2 5 @8 0080 MOVC3 RO, 1(NAME), 1(FILESPEC) : | 
50 69 9A 00086 mOvZBL (TYPE), RO > 1351 
63 01 ag 50 @8 00089 MOVCS RO, 1(TYPE), (NEXT_PTR) : | 
50 68 9A OO008E MOV2 (VERSION), RO : 1352) 
63 01 AB 30 28 90091 MOVCS RO, (VERSION), (NEXT_PTR) : | 
66 57 90 00096 MOVE =-R7,,_ (FILESPEC) + 1353) 
08 BC 56 DO 00099 MOVL FILESPEC, @FILE 3 1323 | 
50 01 DO 0009D 5$ MOVL #1, RO : 1357 
04 000A0 RET : 1359) 


; Routine Size: 161 bytes, Routine Base: DBGSCODE + O4CF 


; 1234 1360 1 


| 3 
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GLOBAL ROUTINE DBGSNVERIFY_OUT (END_VERIFY_POINTER) : NOVALUE = 


‘ee 


i FUNCTIONAL DESCRIPTION: 


40 
47 The function of this routine is to verify commands read from an indirect 
4 command file. That is, the command or comment in question is displayed 
43 at the user's terminal. 
$2 FORMAL PARAMETERS: 
4 end_verify_pointer - pointer to the last character of the input 
rs to be verified 
31 IMPLICIT INPUTS: 
start_verify_pointer =- pointer to the first character of the input string 
a to be verified 


dbg$gb_def_out Cout_verify] - if this byte of GogSop out rr is set 
to a non-zero value (13, then a SET OUTPUT VERIFY 
command is in effect and the VERIFY should 


3 1 1 1 

s 1 1 1 

3 1 1 1 

3 1 1 1 

3; 7 1 1 

3 1 i 1 

3; 1 1 1 

.? 1 1 

3 7 1 1 

3 1 1 1 

3; (1 1 1 

3 1 1 1 

3 3 1 1 

3 1 1 1 

3 1 1 1 

3 3 1 1 

3 1 1 1 

3 1 1 1 

3 7 1 1 

3 1 1 1 

3 1 1 1 

3 1 1 1 

: 1258 1 1 take place 
3; 1259 1 1 

3; 1260 1 1 IMPLICIT OUTPUTS: 

3; 1261 1 1 

3 3 o¢ 1 1 NONE 

: 126 1 1 

: 12646 1 1 ROUTINE VALUE: 

3 1502 1 1 

3 1266 1 1 NOVALUE 

3: 1267 1 1 

3; 1268 1 1 COMPLETION CODES: 

3 3 $° 1 1 

3; 1270 1 1 NONE 

3; 1271 1 1 

: 1378 13 : SIDE EFFECTS: 

3; 1274 1 1 The character string lying between the start and end pointers (usually a _ 
3 \¢?? : single command or comment) is displayed at the user's terminal, if appropriate. 
3 ¥ 6 14 1 !e=< 

; 1278 14 1 

3; 1279 14 BEGIN 

: 1280 14 

: ++ 14 LOCAL . ’ 

3: 1 ¢ 1407 PREV_LINK : REF cis$link, 

; 128 1408 OK_TO_VERIFY; 

3 1284 1409 wy 

3 : 85 Hh Get address of previous Link in cis 
: 1 89 re prev_link = .dbg$gi_cishead [cis$a_next_link]; 
3 1 4 141 

: 128 1414 

3 : oo 1032 Check the type of the cis node 

: 1391 1213 CASE .dbg$gl_cishead (cis$b_input_type] FROM cis_dbg$input TO cis_if 
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et 03:79:38 {oeBUG. SRC DBGNCNTRL.B32;1 — (3 
OF : 
SET 
Ccis_dbg$input) : 

gecin 


ok_to_verify = false; 
END; 


Ccis_rab] : 
BEGIN ; 
if ,prev_ Lint Ccis$b_input_type] NEQ cis_inpbuf 


ok_to_verify = true 
ELSE 
BEGIN 
LOCAL 
pre_prev : REF cisS$Llink; 
re_prev = .prev_link Ccis$a_next_link]; ; 
F presprev Ccis$b_input_type] NEQ cis_dbg$input 
ok_to_verify = true 
ELS 
ok_to_verify = false; 
END; 
END; 
Ccis_inpbuf] : 
BEGIN 
a aie anes Ccis$b_input_type] EQL cis_dbg$input 


ok_to_verify = false 


ELSE 
ok_to_verify = true; 
END; 
Ccis_acbuf) : 
BEGIN 
ok_to_verify = true; 
END; 
Ccis_while] : 
ok to_verify = true; 
Ccis_repeat) : 
ok_to_verify = true; 
Ccis_if] : 


ok_to_verify = true; 


TES; 


Delete leading semicolons 
WHILE -(.start_verify_pointer) <0, 8, 0> EQL dbg$k_semicolon 


ee er aa ee ee 
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; } ° 1276 start_verify_pointer = .start_verify_pointer + 1; 
:1 147 
3 } § 1en8 } Now check whether the command should be verified 
; i : 1480 if -ddg$gb_det out Cout_verify2 
3 : i ¢ ¢ -ok_to_verify 
; ' 59 tr $fao_tt.out (' !AD', .end_verify_pointer - .start_verify_pointer, .start_verify_pointer); 
: 1361 14 RETURN 
s 1 ¢ 12B9 
3 1 1488 1 END; ! End of dbg$nverify_out 
-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
04 ae) P.AAC: .BYTE 4 é 
44 41 21 20 0000 eASCII \ !ADN $ 
-PSECT DBGSCODE,NOWRT, SHR, PIC,0 
0004 80000 -ENTRY DBGSNVERIFY_OUT, Save R2 ; 1361 
52 00000000" EF 3 00002 MOVAB START_VERIFY_POIN wiER, R2 3 
50 000000006 00 B00 MOVL DBGSGC_ CISHERD 3 1412 
51 08 Ad 00 00010 MOVL th (RO), PREV_LI 3 
06 00 02 AO 8F 00014 CASEB (R 0); ° 3 1417 
0021 0010 0026 00019 1$: «WORD 4$-1$,- 3 
002A 002A 002A 00021 $5-18-- : 
$-15.- : 
5$-1$,- 3 
5$-1$,- 3 
5$-1$ 3 
16 11 00027 BRB 4$ : 1423 
02 02 Al 91 00029 2$: CMPB ELPREV_L IME). #2 3 1428 
14 «4 $00 ) BNEQ § 3 
51 08 Al D 002F MOVL ht iy LINK), PRE_PREV 3 1038 
02 Al 95 00033 TSTB (PRE_PREV) : 1437 
4 1 4 BEQL 4§ 3 
9 1 BRB 5$ : 1439 
02. Al 93 4 A 3$: TSTB g PREV LIME) 3 1447 
gf 1 0 BNEQ % 3 
9 D4 38 F 4$: CLRL OK_TO_VERIFY 3 1449 
8 11 re BRB 6s” : 
32 1 0 5$: MOVL OK_TO_V 3 198 
B 00 Be 1 6 68: CMPB SstaRt~ “VERIFY. TEOINTER, #59 > 147 
4 ie O4A BNEQ 7 2 
o¢ 99 4C set START_VERIFY_POINTER : 1475 
17 000000006 2 E9 6 7$ BLBC PO6S68 +} elias: 8$ + 1480 
14 gS 3 BLBC K_TO_VER : 1482 
6 dD A PUSHL START~ “VERiFY POINTER : 1484 


———_—_———— 


ben NTRL 


3; Routine Size: 


3 1364 


7€ 046 aC 


000000006 00 


111 bytes, Routine Base: 


1489 


1 


00000000' Fe 44 f 


3 
1b-Sen~1984 01:4 


62 C3 0005¢ SUBL3 


8 
04 
DBGSCODE + 0570 


061 PUSHAB 
067 CALLS 
OO6E 8$: RET 


70 DEBUG. SRC JDBGNCNTRL.B 


Seer ne Var OIMTER, END_VERIFY_POINTER, = ; 


P. AAC 
#3, DBGSFAO_OUT 


:59 AX-11 Bliss-32 V4.0-74 Pp 4 
s ft sae $3.1 oor SS 


; 1488 


Kk 3 
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mi 1o-808-1 382 3373239 DEBUG. SRC IDBGNCNTRL -B3 31 9° 10) 


GLOBAL ROUTINE DBGSNCHANGE_TO_NEW : NOVALUE = 


‘ee 


i FUNCTIONAL DESCRIPTION: 


Performs actions associated with switching from old debugger to new 
debugger. These include initializing data structures, etc. 


FORMAL PARAMETERS: 


ARENLSSSLISALANSS 


3 7 14 1 

3; 1 14 1 

3 7 14 1 

3% 14 1 

; 1370 14 1! 

; 1371 14 1! 

3 7 if 14 7 ft 

3; 137 14 1! 

3: 1376 14 1! 

: 1575 14 +! 

3 3 78 1 1! NONE 

; 137 1 1! 

; 1578 1 1 ! IMPLICIT INPUTS: 

3; 1379 15 1! 

; 1380 15 1! NONE 

; 1381 12 7! 

3 3 5g 1 1 ! IMPLICIT OUTPUTS: 

3; 138 1507 1! 

3 ! rf: 1208 ' } dbg$gw_gblingth - override length 

; 1386 1510 1! dbg$gl_gbltyp - override type 

3; 1387 1517 1! bsSol_9 

; 1388 1216 £. dbg$gw_dfitleng - default length 

: 1390 aie 1 i dbg$gl_dfitt default t 

; : J yp = default type 

: 1391 1515 1! whe 

3 1 3 1318 1 ! ROUTINE VALUE: 

3; 139 1817 1! 

3; 1394 1518 1! NONE 

; 1395 1519 1! 

3 3 38 1520 1 ! COMPLETION CODES: 

; 139 1521 1! 

; 1398 15 § 1! NONE 

3; 1399 15 1! 

; 1400 15246 1 ! SIDE EFFECTS: 

3 1401 1525 1! ‘ 
3 Hrs 4 1526 1! The state of the world is changed to the way the new debugger expects it. 
: 140 1360 7! 

3 1404 1528 1 !-- 

3; 1405 1529 BEGIN 

3 1008 1530 ; 

3; 140 1531 ! The old debugger doesn't care about default and override lengths unless 
; iene 13 § the d/o type is asci. However, the new debugger does. 

3 1410 13 4 cogtou dfitleng = 

: ret) HF 5 CASE -dbg$gl_dfittyp FROM dsc$k_dtype_bu TO dsc$k_dtype_l 
3 1218 15 SET 

3 1416 13 8 

: ro32 +45 Cdsc$k_dtype_bu, dsc$k_dtype_b] : 1; ! One byte 
: 1417 136) Cdsc$k_dtype_wu, dsc$k_dtype_w) : 2; ! Two bytes 
3 1418 1348 Cdsc$k_dtype_lu, dsc$k_dtype_l] : 4; ! Four bytes 
: 1254 1868 CINRANGE, OUTRANGE) : .dbg$qw_dfitleng; ! No change 
3 1422 1546 


3 
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vOe~ 000 12286871 $8e 93:79:38 DEBUG. SRC SBCNCNTRL .039;1 9° 109 
3 1 ? } rh | TES); 
; 1? 5 : é3 jSgl_gbltyp NEQ -1 
: 3259 1551 saSow_gbl ingen = 
; ‘ 8 : é ( as -dbg$gl_gbltyp FROM dsc$k_dtype_bu TO dsc$k_dtype_l 
Me ie ms 
; +? ¢ : 23 Cdsc$k_dtype_bu, dsc$k_dtype_b] : 1; 
3 1 ¢ : 28 Cdsc$k_dtype_wu, dsc$k_dtype_w] : 2; 
3 1 ; $' Cdsc$k_dtype_lu, dsc$k_dtype_l] : 4; 
; + : 1362 CINRANGE, OUTRANGE] : .dbg$gw_gblingth; 
3 1440 1864 TES); 
; 1441 1565 
| ie ok tee 
> 1444 1568 1 END; ! End of dbg$nchange_to_new 
00%¢ 00000 .ENTRY DBGSNCHANGE TO_NEW, Save R2,R3 3 1490 
53 000000006 90 9€ 00002 MOVAB DBG$GW_GBLLAGTA, R$ ; 
52 000000006 $0 9E 00009 MOVAB DBGSGW"DFLTLENG, R2 ; 
06 08 000000666 00 CF 00010 CASEL DBGSGL_DFLTTYP, #2, #6 > 1535 
000E 001D 001 001 00018 1$: -WORD 3$-1$,= ; 
001D 0018 001 00020 4$-1$.- ; 
5$-1$.- : 
g3-1$-- : 
$-1$,- 3 
33-18" 
50 62 3C 00026 28: MOVZWL DBGSGW_DFLTLENG, RO > 1545 
0D 11 00029 BEB 6 ; 
50 01 00 00028 38: MOVL #1, RO > 1535 
08 11 000 HEE 6$ ; 
50 0¢ DO 00030 4$: MOVL #2, RO ; 
11 99 BRB 6$ ; 
50 % DO 00035 5s: MOVL #4, RO ; 
62 0 BO 00038 68: MOVW RO, DBGSGW_DFLTLENG : 
000000006 9 DO 000 MOVL  DBGSGL_GBLTYP, RO > 1549 
FFFFFEFF © BF D1 0004 CMPL = RO, #-T ; 
: 13 0004 BEaL«=s«é138 : 
06 03 CF 00048 CASEL RO, #2, #6 3 1552 
000E 001D 001 001 O04F 7$ .WORD 9$-7$,- : 
001D 0018 001 0057 10$-7$,- 
11$-7$,- ; 
88-75." 3 
$-7$,- 3 
10$-7$,- : 


——— 
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\ 7 ree PSE tS CR PSE Tey ee 9° 10) 
50 3 52 8S: —MOVZWL DBGSGY_GBLLNGTH, RO 1562 

5 Hf sr Bre 138 
50 1 00 00062 9$: —-MOVL RO : 1552 

11 0006 BRB 138 ; 

50 DO 00067 108:  MOVL #3, RO : 

11 0006A BRB § ; 

50 i po 0006C 11$:  MOVL #%. RO : 

é 0 80 0006 126: Mov RO. DBGSG¥_GBLLNGTH : 
04 00072 15$: RET 3: 1568 


; Routine Size: 115 bytes, Routine Base: DBGSCODE + OSDF 
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Sep-19 DEBUG. SRC JDBGNCNTRL.B32;1 (11) 
3 rr | } 4 1 GLOBAL ROUTINE DBGSNSAVE_BREAK_BUFFERCINPUT_DESC, BUFFER) : NOVALUE = 
; er 1571 1 =! FUNCTION 
3 144 1 ie 1; This routine is pssent tally Like DBGSEXTRACT_STR() , 
; 1450 15735 1! except that the bounding characters are '("' and ‘')'’ instead 
3 1451 1574 1! of ' and nesting of parentheses is allowed. This routine 
3 126 1575 1! is called when the open ng parenthesis of a List of breakpoint 
3 14 1 8 1 ! actions is encountered. The breakpoint actions are collected 
3 1454 577 1! but not lexically or semantically scanned. Storage is reserved 
; 1022 1378 : for the new string, and a pointer to this storage is returned. 
: 1eet 1380 1! This routine is also used to collect the action clause for 
3; 1458 158) 1! the commands IF, WHILE, and DO. Here, we collect a string as 
3; 1459 1256 3: in the processing for SET BREAK DO. Since we may have input after 
3; 1460 15835 1! the string is collected, this routine also copies over the rest 
: pee: 1388 : } of the command Line from save_input_desc to cmd_stg_desc. 
3 1288 1586 1! Another use for this routine is in commands Like 
> 1464 1587 1! SET DISPLAY X DO (EXAMINE Y) , 
3 1465 1588 1! Here also you can have input after the break buffer, since there 
3 1466 1589 1! may be a comma list of displays. 
3: 1467 1590 1! 
3 1468 bos A further complication for this routine but not for — 
3; 1469 1338 1! exact_string, is that we can't just go blindly charging on 
; 1470 1595 1! looking for matching parenthesis. i.e. we can't ge 
3 1471 1594 1! fooled by: 
3 1ore 1595 1! 
3 147 1596 1! DBG>SET BREAK x DO (D/AS .=")'; etc) 
3 1476 1597 1! 
3 1475 1598 1! We resolve this problem oy paying any attention to characters 
3: 1476 1599 1! inside quoted strings within the DO action string. 
3 1477 1600 1! 
3: 1478 1601 1 ! INPUTS ; P 
3 1479 196 1! INPUT_DESC = A Longword contgining the address of an ASCII string 
3 re 3 1oN { descriptor describing the present input command. 
3; 1482 1605 1! BUFFER = The address of a longword to contain the address of the 
3 14835 1606 1! stored action buffer. This action buffer is stored as 
3 1484 1607 1! a counted string with a word count at the beginning. 
3 1485 1608 1! (l.e., an ASCIW string). 
3 1486 1609 1! 
3 1487 1610 1 ! OUTPUTS ; 
; 1488 1611 1! BUFFER = The address of the saved DEBUG command list action buffer 
3 1489 lol¢ , | is returned to the BUFFER Longword. 
3: 1490 1613 1! 
3 1491 1614 1 
: 1636 1615 BEGIN 
3 149 {O18 
7 1494 161 MAP ; 
3; 1495 1618 INPUT _DESC: REF ponests pesc. ! The input string descriptor 
: 1496 1912 BUFFER: REF VECTORC1,LONG); ' Pointer to buffer address return loc. 
3; 1498 1621 AL 
3: 1499 16 § DELIMITER ' Current delimiter character 
> 1500 16 ERROR_LENGTH, i Used for error messages 
3; 1501 1624 RROR- PTR ! Used for error messages 
3; 1502 1625 NEW_POINTER, ! Temporary pointer 
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! Number e characters used from input 
nput string descriptor 


action string when collected 


MEW —O0Ono 


1503 16 USE _COUNT, 
: ARSE STG DESC: REF DBGSSTG_DESC,! Parse 
: i 5 ig POINTER. REE VECTORE WORD] : Holds address of dynamic storage for 
: i 6 PAREN_ COUNT i Count of paren Levels 
:1 te PTR: REF vECTORC BYTE), 
: 1 $9 16 CHAR ! Holds a single character 
: 151 16 OUNT, i Character count 
71 i 16 INPUT _PTR, : ery pointer to input string 
> 151 16 IN_STRING, : => we are not currently within an 
31 8 16 A : embedded quoted string. Other- 
; 1514 16 ; wise we are, and .in_string is 
: 1515 1636 the string delimiter-(* or "). 
: Ht 1646 TEMé_pTR: BLOCK(8 BYTE); ! String descriptor for embedded quote strings 
: 151 164 
13 0 1808 
: ' riptor describes the input command Lineup to the first 
: 8 : 18e8 i Fok reg By yh leout Line. Since we may have semicolons embedded 
; 15 : 164 ! in a break action sequence, we must construct a buffer which contains the 
3 1524 1607 ! present command Line plus the rest of the input line. The remaining input ; 
; 1525 1648 ! Line is described by save_input_desc. Later, we must update the save_input_string 
3 15 6 1649 i to reflect any input that "we have used. 
; 13 se 1651 Obtain storage for the descriptor. 
; 13 3 1688 PARSE_STG_DESC = DBGSGET_TEMPMEM (2); 
; 1531 
: Bi 1686 Allocate a new buffer to hold all the input. 
15 6 : 
: CSA_POINTER] = DBGSGET_TEMPMEM(((.INPUT_DESC CDSCS$W_LENGTH] + 
: 133 1688 : PARSE STG OEE PUT Desc COSCSW_LENGTH] Y / ZUPVAL) + 1); 
s ay 166 
15 1661 
; : h tion of the string from INPUT_DESC into the new descriptor. 
: 1320 1808 4 i onnet tantine is that for C, we want to copy from the original 
: 1541 1664 i input buffer, not the upcased one. 
154 ‘ 
: NPUT_PTR = .INPUT_DESCCDSCS$A_POINTER); 
3 is 1667 IF” -DBGSCB _LANGUAGE EQL DBGSK~C 
3; 156 
1 1669 BEGIN 
; F (, T_PTR LSS .DBGSGL_UPCASE_COMMAND_PTR[OJ) OR 
: i 1670 ‘ CLINPUTTPTR GTR “DBSeCt-UPCASECOMMAND-PTRETI) 
N 
: 1380 1678 SDBG_ERROR *DBGNCNTRL\DBGSNSAVE_BREAK, BUFFER 10"): 
1551 1674 
: TR = (, INPUT PTR = .DBGSGL_UPCASE_COMMAND_PTR[O]) + 
: 1388 1676 ta : DBGSGE ORIG. CORRAND=PTR: 
1554 16 ND; 
: R = CHSMOVE (.INPUT_DESC CDSC$W_LENGTH), .INPUT_PTR, 
: 1356 1835 mrt joes ac scene -PARSE-STG_DESC EBstSacporitéRdys 
We 1g 
: 1889 16 ! There is a <CR> at the end of the input descriptor. Change this to a 


iat it 
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3; 1 1683 ' semicolon. 

3; 1561 1684 : 

3; 1 $6 1685 CHSWCHAR (°;", .NEW POINTER = 1); 

; 156 16 $ 

3; 1566 16 

3 ; 65 1 3 Now copy the rest of the input Line. 

3 1 €3 16 CHSMOVE (.SAVE_INPUT_DESC CDSCSW_LENGTH], .SAVE_INPUT_DESC CDSCSA_POINTER], 
3 1 1691 -NEW_POINTER); 

3 1 $ 1o36 

: 1570 169 

; : q 1998 } Set the count. 

3 i 7 1698 PARSE_STG_DESC CDOSCSW_LENGTH] = .INPUT_DESC CDSCSW_LENGTH] + .SAVE_INPUT_DESC 
3 135 1698 

; ! 7g is Set the variables used for error reporting. 

3 1378 1701 ERROR_LENGTH = .PARSE_STG_DESC CDSCS$W_LENGTH] = 1; 

3 15 1706 ERROR_PTR = .PARSE_STG_DESC CDSCSA_POINTER); 

; 1580 170 

; 128) 1706 

3 15 ¢ 1705 ' Do the real work. 

3; 158 1706 : 

3 1584 1707 INPUT_PTR = CHSPTR (.PARSE_STG_DESC CDSCSA_POINTER)); 

; 1585 1708 OUNT = 0; 

3 1388 1709 IN eS, = 0; 

; 158 1710 TEMP_PTRCDSCSA_POINTER] = 0; 

; 1588 1711 PARER_COUNT = T; 

; 1589 ar WHILE TRUE DO 

; 1590 171 BEGIN 

; 1591 1714 

3 1238 1715 

3; 159 ay ! Pick up the next character and see if we 

3; 1594 171 ! have run off the end of the string. 

3; 1595 1718 : 

3 1596 1719 CHAR = CHSRCHAR (.INPUT_PTR); 

3; 1597 1720 IF .CHAR EQL 0 

3; 1598 1721 THEN 

3; 1599 17 ; 4 BEGIN 

; 1600 17 4 

3; 1601 1724 4 ‘ ee 

3 18 1725 4 ! The string we complain about not begin delimited 
: 160 1756 4 ' is either the supposed break action string, or 
$ ope 4 5 : a non-terminated embedded quoted string. 

3 ios 1729 4 IF .TEMP_PTRCDSCSA_POINTER] NEQ C0 

; 160 1730 4 THEN 

3; 1608 1731 BEGIN 

3; 1609 17 ; 

3; 1610 17 

3; 1611 17 ! we didn't find the ending ')' for the break 
3 1616 1735 ! action string because an embedded ascii 

; + oF Vy string was not properly terminated. 

: 1615 17 3 PASE 516 _DESepDsceA Poturee) = ,TEMP_PTRCDSCSA ponrend: 
3 1616 17 PARSE-STG_DESCCDSCS$W_LENGTH] = .TEMP_PTRCDSCS$w_CENGTH); 
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COSCSW_LENGTH); 


> & 
GNCNTRL 16-Sep-1986 01:38:59 - VAX=11 Bliss-32 vé.0-74 2 
yee ex ee- 188s 93:95:38 = HONadG Bhi Sbacachray so35.1 — 


H 1 1740 DELIMITER = .IN_STRING; 

3 1 1741 END 

3; 16 1oe6 

; 16 1745 4 ELSE 

; i Vote BEGIN 

; 16 Se | The action string itself was not terminated. 

; 16 Hoy PARSE _STG_DESC [DSC$W_LENGTH] = .ERROR_ LENGTH; 

; 16 174 PARSE STG_DESC [DSCSA_POINTER] = .ERROR_PTR; 

; 16 1750 DELIMITER™= %C")'; 

; 16 1751 4 END; 

: 16 17 § & 

; 16 17 & 

3; 16 1754 & ! Truncate the string to 10 characters unless it is already 
3 + § ; 1786 ° : smaller than that. 

; 1684 1787 ? IF_ .PARSE_STG_DESCCDSC$W_LENGTH] GTR 10 

; + $ 6 4 4 ? PARSE _STG_DESCCDSCSW_LENGTH] = 10; 

; 16 1761 4 SIGNAL(DBGS_NOEND, 3, .PARSE_STG_DESC, 1, DELIMITER); 

3; 1639 1706 END; 

3 1640 176 

3 1641 1764 

3 Hy 041 +765 ! If we are not already in an embedded quoted string, then this may be 
; Mb oF 1706 : the beginning of one. If we are, then this may be the end of it. 
: 1645 1768 IF .CHAR EQL ZC**** OR .CHAR EQL 2C**" 

> 1646 fA 4 THEN 

3 1647 1770 4 BEGIN 

; 16468 1771 4 

3 1649 ere 4 

: 1650 1775 4 ! IN_STRING tells not only whether or not we are in a quoted 
; 103) ae ? string, but what that string is delimited by. 

: 1888 1776 4 IF .IN_STRING EQL 0 

3; 16546 1777 4 THEN 

; 1655 1778 5 BEGIN 

; 1638 177 

3 165 1780 . gas 

: 1658 1781 ! Now we are within a string. Save the delimiter so we can 
; 1659 17 ; ! find the end of it. 

; 1660 17 : 

3 1661 17 IN_STRING = .CHAR; 

3 1oe6 1785 

i 166 17 

3 1664 HA tf 5 ! Also save a string descriptor for this eyeing as we may need 
; 1665 17 ! it for later error processing: This string descriptor 
; 1066 178) includes the supposed delimiting character. 

3 1668 1791 TEMP_PTRCDSCSA_POINTER] = . INPUT PTR; 

; 1669 1798 TEMP~PTRIDSCSW-LENGTH) = .ERROR_CENGTH = .COUNT; 

; 1670 179 END 

3; 1671 1794 

; 1e74 1795 4 ELSE 

3; 167 1796 5 BEGIN 


Ee OOOO eee ee 
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: See if this quote ends the string we were already in. 


if .IN STRING EQL .CHAR 
THEN 


SAAS 


=S 3a Ne 


! Increment the character counter, update the pointer so that we are 
: looking at the next character, and loop back to do so. 


COUNT = .COUNT ¢ 1; 


; 1 
Z 1 
2 1800 
:1 1 i 
3; 7 1 
3 1 1 : ? BEG! 
3 7 1804 IN sTRine = 0; 
i] ! 05 TERP_pTR DSCSA_POINTER) = 0; 
3 1 1809 
; 1685 1 43 4 END; 
2 1810 END 
3 7 1811 4 
: 1689 1 i 3 ELSE 
: jeer 11g ese 
: 169 1815 4 
s 1898 181 4 ! If we are already in an embedded string, and there is no chance 
: 1694 1817 4 : that it is ending, then we don't care what the current character 
; ! is. Otherwise we have to look for parenthesis. 
1o%? + ? i Otherwi h Look f h 
3 1899 1820 4 IF .IN_STRING EQL 0 
; 1699 8 : ¢ THEN BEGIN 
: 1700 18 
3; 1701 1826 
3 a4 1825 ! We are not in an embedded string. Now we sort out the 
: 170 18 § ! parenthesis matching. 
3; 1706 18 : 
3; 1705 18 $ IF .CHAR EQL %C")* 
: iF09 1886 6 THEN BEGIN 
> 1708 1831 § 
3; 1709 18 6 
3 ' Found a closing parenthesis. See whether this one matches 
1710 1838 6 ' Found Losi P hesis. S$ r thi 
3 1711 Ht 6 ! the opening breakpoint action parenthesis, and if it 
: ine H 5 6 : does, then exit from this loop, and thus from the macro. 
: PAREN_COUNT = .PAREN NT - 1; 
1714 1839 6 REN_ COUNT PAREN_COUNT 1 
F 1715 1838 6 We RREN_COUNT LEQ O THEN EXITLOOP; 
; 1719 H 
3 L CH L 
1718 1841 ELSE IF .CHAR EQL %C'(* 
3; 1719 1 § THEN 
3 N =. N_COUNT ¢ 1; 
7 4 : ? PAREN_COUNT PAREN_COUNT + 1 
3 17 § 1845 4 END; 
3; 17 1 § & 
3 1726 1 END; 
3; 1725 1 : 
3 17, § 1 
3 17 1850 
3: 17 1851 
3 17 1 § 
: 17 1 


Wn 
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bow 1o- 800-1382 9333 :09 DEBUG. SRC SeencNTRy B33: aaah 

; 1731 1854 INPUT_PTR = CHSPLUS (. INPUT PTR, 1); 

3 Hf § : : PARSE_STG_DESC CDSCSW_LENGTA] = -PARSE_STG_DESC CDOSCSW_LENGTH] = 1; 

: 17 1 END; ! End of loo 

Fe 1889 : 

3; 17 1860 ! The breakpoint action string has been isolated. We now allocate a buffer 

3; 17 1861 ! in dynamic memory for_it. The number of bytes we need to allocate is the 

3; 17 1 4 ' action string size + 3 because we need 2 more bytes to hold the count 

3; 17460 1 ' and one byte to hold a ad Ay zero. We then apply the standard formula 

; 174) ; : } num_longwords = (num_bytes+5)/ZUPVAL 

; Po : ? POINTER = DBGSGET_MEMORY(((.COUNT + 3) + 3)/2ZUPVAL); 

3 1745 1308 

3 1 196 ! Copy the action string from the input buffer, and then overwrite the 

3 174 1870 ! character before the string begins so that is becomes a counted string 

$ 178 te ' action buffer. We also ensure that there is a 0 character at the end 

3 1746 1 Le ! of the buffer to ensure proper termination of parsing it when the break 

3; 1750 187 ' happens. 

3; 1751 1874 : 

3 1736 1875 POINTER(CO) = .COUNT + 1; in ah me is for trailing zero 

3; 175 1878 PTR = CHSMOVE(.COUNT, .PARSE_STG_DESC DSCSA_POINTER], POINTER[1]); 

3 1754 187 PTRCO) = 0; T add trailing Zero 

: 1755 tA 

: 1738 187 

3; 175 1880 ! Now update the parse string descriptor to address the character after 

3 1738 rt the closing parenthesis. 

3; 1760 1883 PARSE_STG_DESCCDSCSA_POINTER} = CHSPLUS(.INPUT_PTR, 1); 

3 176) 1sse PARSE_STG_DESCCDSCS$W_LENGTH) = .PARSE_STG_DESCEDSC$w_LENGTH) - 1; 

: 1708 1886 

3: 1764 1887 ! Now comes the time to figure out what we have and have not eaten so 

3; 1765 1888 ' that the SAVE_INPUT_DESC may be updered properly. We must also update 

3; 1766 1889 ! the original Input descriptor. Check to see if there is still more 

3 \7er 13 } stuff from INPUT_DESC. 

; 1769 1096 ! If the INPUT_DESC buffer has not been used completely, we set up the 

3 fa 133? : INPUT_DESC string descriptor to point to what remains. 

3 1% 1895 IF .PARSE_STG_DESCCDSCSA_POINTER] LSSA .NEW_POINTER 

3; 177 18 THEN 

3 1774 199 BEGIN 

3: 1775 1898 INPUT_DESCCDSCSA_POINTER] = .INPUT_DESCCDSCSA_POINTER) + 

3 1776 1899 . INPUT_DESCCOSC$W_LENGTH] = 

3; 177 1900 (.NEW_POINTER - .PARSE STG _DESCCDSCSA_POINTER]); 

3; 1778 1901 INPUT_DESCCDSC$W_LENGTH] = .NEW_POINTER - .PARSE_STG_DESCCBOSCS$A_POINTER); 

3; 1779 1D36 END 

3 1700 190 

3; 1781 1904 2 

; He 1905 ! Otherwise, the INPUT_DESC buffer has been exhausted and we are into the 

; 178 Hb : SAVE _INPUT_DESC buffer. Update it and show exhaustion of the INPUT_DESC 

3; 17 190 ! buffer. 

: 1785 1308 : 

3 17 190 ELSE 

3; 1787 1910 BEGIN 
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! Show INPUT_DESC to be empty and update SAVE_INPUT_DESC. 


input _DESCCDSCSA_POINTER) = 0; 
INPUT “DESCLDSC$W- LENGTH] = 
SAVE_INPUT_DESCCDOSCSA_POINT 

PARSE_ST1G 
SAVE_INPUT_DESC Esc Sue LENG 


vE ph ttyl vesctascsn POINTER] + 


POINTER; 
ve. INPUT desctbscgu LENGTH] = 


0; 
ER] =, 
bESCCOS 
TH) = 

G_DESC OINTER NEW_POINTER); 


: We may need to move mo 

: For example, in ‘IF TR 
i “ELSE (E 2)” now sits 
: must move +a into awry 


! 

E Y) ELSE (E 2)°* then fhe 
! 

' 

“SET DISP xX "8 (E Xx 

1 

' 

' 

' 

' 


E 

ve INPUT DESC buffer ond ee 

thet the parsing of the IF command 
( 


i we call DBGSNGET bit 
! On the other hand, if m 
' "IF TRUE THEN (EX” MsEX Y);E 
! then we do not want to charge ahead and collect the ‘'E 2". 
' So we check for semicolon. 


LEN = - SAVE _INPUT_DESCCDSC$W -LENGTHI 
PTR = .SAV ED ANPUT “DESCCDSCSA~ POINTER); 
ee PrAL ] EQC DBGSK_BLANK) AND (.LEN NEQ 0) DO 


PTR = .PTR + 1; 
LEN = “LEN - 1; 


END; 
IF (-PTREOD NEQ DBG$K_SEMICOLON) AND (.LEN NEQ 0) 

DBGSNGET_CMD(.SAVE_INPUT_DESC, .INPUT_DESC, MESSAGE_POINTER, FALSE); 
END: 


o 
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us. 
on followed the command buffer, as in 


NO TOE 


Return a pointer to the saved-away action buffer. 
BUFFERCO) = .POINTER; 
END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,.0 
54 4E 43 rh 47 42 P.AAD: .ASCII \#DBGNCNTRL\<92>\DBGSNSAVE _BREAK_BUFFER \ 
52 42 SF 4 36 $3 
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00007 
00028 
00039 


Wns 
OVWwS 


eASCII = \10\ 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 
OFFC 00000 -ENTRY DBGSMSAVE_BREAK_BUFFER, Save R2,R3,R4,R5,- 
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R6,R7,RB,RI,R10,R11 ; 
s eT a pie 
000000006 4 p FB CALLS #1, DBGSGET_TEMPMEM : 
4 p 0 MOVL RO. PARSE STG DE : 
A 04 A : ot MOVAB 4(PARSE ST¢_DESC), R10 : 1658 
A ac 0 1 VL INPUT _DESC, R : 
0 68 3C 00019 MOVZWL (R + 1659 
1 00000000" FF f O01¢ MOVZ2WL @SAVE_INPUT_DESC, R1 : 
0 31 ¢ 99 ADDL2 R1, RO : 
0 4 ¢€6 00 $ DIVL2 #4 : 
01 AO OF 09 PUSHAB 1(RO) : 
000000006 00 Qi 00 ¢ CALLS a, DBGSGET_TEMPMEM : 
56 04 28 DO 000 MOVL 4(R8), INPUT_PTR + 1666 
07 000000006 i 94 005A CMPB BGSGB_LANGUAGE, #7 > 1667 
00000000" EF 3 1 0045 CPL INPUT_PTR, DBGSGL_UPCASE_COMMAND_PTR + 1670 
00000000" EF 56 D1 a035 CHL INPUT_PTR, DBGS$GL_UPCASE_COMMAND_PTR+4 + 1671 
00000000' FF 9F 00055 1$: PUSHAB P.AAD t 1673) 
1 Dd 00058 PUSHL #i : 
00028362 8F DD 9005p PUSHL : 
000000006 00 03 Fe 0006 CALLS #3, LIBSSIGNAL 3 
56 00000000" EF C 0006A 2$: SUBL3 DBGSGL_UPCASE_COMMAND_PTR, INPUT PTR, RO ;: 1675 
56 50 00000000" EF 3 0072 ADDL DBGSGL-ORIG_COMMAND PTR, RO, INPOT_PTR 3 1676 
00 «BA 66 68 8 OOO07A 3$: mOovC (R8), TINPUT PTR), SO(RIO) : 1679. 
5B 3 DO 0007F MOVL R3 PO! ; 
FF AB B 90 00082 MOVB #59, -1TNEW POINTER) : 1685. 
57 00000000' EF D0 00086 MOVL_ SAVE_INPUT_DESC, > 1690 | 
68 04 87 67 28 0008D MOVC3 (R7)> @4(R7), (NEW_POINTER) > 1691 | 
69 ee 67 Ail 00092 ADDW3 (R7). (RB), (PARSE~STG DESC) : 1696 
5 69 3¢ 0096 MOVZWL (PARSE _STG DESC), ERROR_LENGTH > 1701 | 
57 D 90099 ERROR_CENGTH : | 
6E 6A 00 00098 MOVL (R10)> ERROR_PTR 3 1702 | 
56 6A 00 0009 MOVL (R10). INPUT~PTR : 1707 | 
52 D4 OO0Al CLRL COUNT > 1708 | 
54 D4 0003 CLRL —_—«IN_STRING : 1709 | 
Oc AE D4 000A5 CLRL =TEMP_PTR+4 : 1710 | 
33 01 30 OOA8 MOVL #1, PAREN_COUNT : 1711) 
5 66 A OOOAB 4$: MOVZBL (INPUT_PTR), CHAR : 1719 
B 12 OOOAE BNEQ $ > 1720. 
OC AE OD 008 TSTL TEMP_PTR#4 : 1729. 
OE 1 B BEQL Ss : | 
6A 0c AE 00 0008 MOVL TEMP_PTR+4, (R10) : 1738 
69 08 AE B80 00089 MOVW § TEMP“PTR, (PARSE_STG_DESC) > 1739 
04 AE 54 DO 0008D MOVL  IN_STRING, DELIMITER : 1740 | 
A 11 000C1 BRB $ : 1729 
69 7 BO 000C3 S$ MOVW § ERROR_LENGTH, (PARSE_STG_DESC) > 1748 | 
6A of D 90¢6 MOVL ERRORPTR, (R10) > 1749 
04 AE D0 000¢ MOVL #41, DELIMITER : 1750. 
OA 9 81 OOCD 68: CMPW © (PARSE_STG_DESC), #10 : 1757 
3 8 900 BLEQU F | 
69 A 8 D Vw #10, (PARSE_STG_DESC) : 1759, 
04 AE 9F 00005 7$: PUSHAB DELIMITER 3 1761 
| 01 DD 00008 PUSHL #1 : 
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PARSE _STG_DESC 
Aiea tee 
HAR, #39 
CHAR, #34 
N_STRING 
CHAR, IN STRING 
INPUT_PTR, TEMP_PTR+4 
COUNT; ERROR_LENGTH, TEMP_PTR 
IN_STRING, CHAR 
138 
IN_STRING 
T 
IN STRING 
CHAR, #41 
PAREN.COUNT , 13$ 
CHAR, #40 
PAREN_COUNT 
COUNT 
INPUT_PTR 
{PARSE_STG_DESC) 
6(R2), RO 
#4, RO, -(SP) 
#1, DBGSGET_MEMORY 
POINTER 
1, COUNT, (POINTER) 
COUNT, @0(R10), 2(POINTER) 
tah 


fR 

(R10) 
€_ST1G_D 
. NE 


RO 
OINTER, (R10), R1 


4 (RB) 
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) 

F INPUT_DESC, RO 

T, 4(RO), R 
POINTER, R1, 4(RO) 
0), NEW.POINTER, R3 
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GNCNTRL 16-Sep-1 2:38:59 AX-11 Bliss-32 V4.0-74 
eeebo0 1455 at 7 9}: #3: 39 DEBUG. SRC CSBeeacwthy 2035; 
1 60 3C 0018F MOVZWL (RO), LEN 
3 04 A 06 i§ MOVL 4 (ROS, PTR 
196 16$:  CMPB (PTR). #32 
A 1 1 BNEQ 17$ 
1 05 00198 TSTL LEN 
1 19D BEQL 4 
06 19F INCL PTR 
D7? OO1A1 DECL LEN 
F1 11 OO1A BRB 6$ 
38 $2 91 uA 17$:  CMPB (PTR), #59 
1§ 1 1 BEQL ©: 18$ 
51 p OIA TSTL N 
11 1AC BEQL $ 
7E 04 OAE CLRL = = (SP) 
1000 TOT OBE BB O01B6 PUSH. PERRO CRBS 
FB9E CF 4 FB OO1BA CALLS #4, DBGSNGET_CMD 
08 BC 7 00 OO1BF 18$:  MOVL POINTER, aBUFFER 
04 001C3 RET 


; Routine Size: 452 bytes, Routine Base: DBGSCODE + 0652 


————— 
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ROUTINE GET_C_CMD_STRING(INPUT_DESC, CMD_DESC, CIS_DESC, MESSAGE_VECT) = 
' 


‘ee 
FUNCTIONAL DESCRIPTION: 


VPwn— 


ODOOOO00O 


MAN 


This routine gets the first command from the input Line. Also, 
uppercases the Line except for what is in quotes. This routine 
takes care of stripping the comments off the end of a DEBUG 
command. For the language C, the comment characters are ‘/*'. 


! FORMAL PARAMETERS: 


WR" OOOnNOuew 


LESSEE 
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input_desc - a VAX standard descriptor of the input Line 


o 
o 


cmd_desc - p cesertpser that will hold the next command 


cis_desc - a descriptor for the current command input 
stream. Just another copy of the above in 

case the command is a WHILE-DO. 

message_vect - the address of a longword to contain the address 

of a message argument vector. 


QSILSSF 


ROUTINE VALUE: 


i 
i 
i 
i 
i 
i 
! 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
A status of the routine. 
1 


OWOwoynNA~S 
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PREP MAAR AA AAR RR Ree ee ee etetecteid 


WN OC OBNAVE WO DOONOUE WO 0O@ 


T_DESC : REF dbgssta desc, ' Command Line 

DESC : REF CISSLIAR, ' Current command input stream 

DESC : REF BLOCK C,BYTE); } We don't REF to dbg$stg_desc 
! 


tes 


' because of the extra longword 
! for the initial dsc$a_pointer 


OOOO OOODOOOVOOOVOOOOOOO 


oo 00 00 
oo~ 


CHAR” STRING : REF VECTOR C.BYTE], |! vector of characters 
QUOTE- CHAR; 


oa a so ss = a bs 2 a as 4 a 4) ss a 2 ss 1 


333333 


char_string = .input_desc(dsc$a_pointer); 
char_count = 0; 


! Check for a comment Line. For C the comment character is ‘/*', 
' but we also treat a beginning-of-line ‘'!* as a comment Line. 
! The reason for this is so that the cutout of DEBUG log files 
can still be used as DEBUG input even if language is set to C. 


if .char_string C.char_count) EQL *!" 
OR (.char_string (.char_count] EQ. ‘/* 
Fb enee Str ing -char_count+¢1) EQL ‘**) 


SSSS332233 
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BEGIN 
input_desc Cdsc$a_pointer] = .input_desc [dsc$a_pointer] + 
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-input_desc Cdsc$w_length]; 
input desc Cdsc$w_length] = 0; - Ss 
alum sts$k_error; 


RANLSS 


CSREES TES Se 


! Before ereceesrns. we fill in the CISSA WHILE CLAUSE field 

' to point to the beginning of the command. ThiS is in case the command 
' is a WHILE; then we are able to iterate by backing up to the 

' beginning of the command. 

! The rot Lourag code relies on the fact that INPUT_DESC is superimposed 
} nk pointed to by DBGSGL_CISHEAD. 


cis_desc = .input_desc; 
cis_desc Ccis$a_while_clause] = .input_desc paecte. ointer); 
cis.desc [cis$w_while_length] = .input_desc Cdsc$w_lengthJ; 


on the top | 


Now count the characters in the command 


char_string = .input_desc (dsc$a_pointer]; 
char_count = 0; 

uote_flag = false; 

HILE .input_desc tdsc$w_length] GTR 0 


BEGIN 
If .char_string C.char_count] EQL dbg$k_car_return 


-char_string C.char_count] EQL dbg$k_line_feed 


SOOCOCCCSCCOCOCOOCOCO COCO OO OOOO OOoCoOO 
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-char_string C.char count) EQL dbg$k_null 


DODODOOOODOOVOOVDVOVOOODOVOOVNO 
IND ed ed ed ed ed 
NOV EWN OOOO Sw 


mee ek ae ed nd td od 2 wt = do 


04 
04 
Be § ((NOT .quote_flag) AND .char_string C.char_count] EQL °;") 
; 044 4 ((NOT .quote_flag) AND .char_string eoedpenes: Qa. ‘/' 
045 4 AND .char_string C.char_count+1] EQL ‘*") 
04 THEN 
04 EXITLOOP 
04 ELSE 
049 4 BEG! 
: B 2 IF .char_string C.char_count] EQL dbg$k_quote 
$9 052 4 -char_string C.char_count] EQL dbg$k_dbi quote 
33 053 4 THEN 
9 ; 05 BEGIN 
93 05 IF NOT .quote_flag 
934 B23 THEN 
935 57 6 BEGIN - 
9 058 6 quote_char = .char_string C.char_count); 
937 059 6 quote. flag = true; 
938 060 6 ND 
939 061 5 ELSE 
940 066 6 
941 065 6 IF .char_string C.char_count) EQL .quote_char 
ase 064 6 THEN 
94 065 g quote_flag = false; 
944 066 ND; 


oo 
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ou 


anal count = .char_count_¢ 1; 
_ nput_desc Cdsc$w_Tength] = .input_desc Cdsc$w_length] - 1; 
END; : 


} Now try to get storage for the command string 
cmd_desc Cdsc$a_pointer] = dbg$get_tempmem((.char_count / %UPVAL) + 1); 
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Save away pointers both to the original input string, and to 

the copied string in cmd_desc. These are used later as follows: 
In the Language (, a lower case name represents a distinct object 
from its upper-case counterpart. Since we upper-case commands in 
cmd_desc, we will need to go back to the original input desc to 
et at the original version of the name. For this, we need these 
wo pointers. 


4 

4 

4 

4 
081 
085 
087 
088 The pointer to the upcased string is actually a vector containing 
Oep pointers to the beginning and the end of the string. 
091 dbg$gl_orig_command_ptr = _.input_desc(dsc$a pointer}; 


f a_pointer]; 
dbg$gl_upcase_command_ptr 


d>ot9! .upcese command ptr hy. = .cmd_desc(dsc 
1] = .cmd_desc(dsc$a_pointer] + .char_count - 1; 
Fill the command buffer 


ch$move ( -char_count, .input_desc Cdsc$a_pointer], .cmd_desc [dsc$a_pointer)); 


: Ypdete the ye ar descriptor pointer. Check for a comment to skip. 
The e" in 


comment character is ‘/ ce 


VUUS Sao UnrRwVmOSR NEM RUNS 


if char string ach r_count) EQL '/' 
r 


ta -char_string C.char_count+1]) EQ. ‘*' 


EGIN 

input_desc Cdsc$a_pointer] = .input_desc [dsc$a_pointer] + 
- input_descCdsc$w_Tength] + 
-char_count; 

ingut_dese Cdsc$w_length] = 0; 


input_desc Cdsc$a_pointer] = char_string C.char_count); 


Update the command descriptor 
cmd_desc initial ptr} = .cmd_desc (dsc$a_pointer); 


STCO DO OODO DO OHDODHODODOVOOHOODOO OOD DOOD DOOD ODOOVOOOOODOOOODOOO 
S8SSSSSISSSS SSS RVES SASS RIN SESFSSSSSES 


Be Oe Se Se Ge Be Be Be Se Se Se Se Se Se Se Se Se Se Ge Se Se Ge Se FHS Ge SH Se OF Oe Oe Ss BF Ss Se FHSS Se Se Se Se Se Se SF SH Se SH Se SH Se Se Seen sete see 


RNIN 3 2 000 


cmd_desc ([dsc$w_length) = .char_count; 
char_string = .¢md_desc (dsc$a_pointer); 
800 
$001 ! Now check for bad chars and translate to upper case 


SS —$ 
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00 : 
00 char_count = 0; 
004 uote_flag = false; 
BR? HILE .char_count LSS .cmd_desc Cdsc$w_length] 
009 BEGIN 
Ops = gcherstring C.char_count] EQL dbg$k_tab 
010 char_string C.char_count] = dbg$k_blank; ! Convert tab to space 
ff cchorstring C.char_count] LSS dbg$k_blank 
BEGIN 
emessage_vect = dbg$nmake_arg_vect (dbg$_invchar); 
RETURN sts$k_severe; 
END 
ELSE 
BEGIN 


IF .char_string C.char_count] EQL dbg$k_quote 
al atcha C.char_count] EQL dbg$k_dbilquote 


EGIN 

IF NOT .quote_flag 

THEN 
BEGIN 
quote_char = .char_string C.char_count); 
guste, 7.08 = true; 
ND 

ELSE 


= acher string C.char_count] EQL .quote_char 
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quote_flag = false; 
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END; 
i END; 

+44 IF .char_string C.char_count] GEQ ‘a' 

-char_string C.char_count] LEQ ‘z' 

NOT .quote_flag 

char_string C.char_count] = .char_string C.char_count) 

- dbg$Sk_lcbias; 
END; 
char_count = .char_count + 1; 


: Termanate the command with a <cr> 


char_string C.char_count) = dbg$k_car_return; 
cmd_desc ([dsc$w_length] = send -deie Cdsc$w_length) + 1; 
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: 3088 
; INFO#250 
; Referenced LOCAL symbol QUOTE_CHAR is probably not initialized 


182 


rm sts$k_success; 
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9 DEBUG. SRC JDBGNCNTRL .B 


sove R2,R3,R4,R5,R6,R7,RB,RI,R10,R11 


SP 
INPUT DESC, R10 
4 (R103 
(R9), CHAR_STRING 
CH UN 
(CHAR_COUNT)CCHAR_STRING], #33 
HAR_COUNT)CCHAR_STRING], #47 


CHAR_COUNT)CCHAR_STRING], #42 


NMBDODA—AHO = 


1 
( 
2 
1 
2 
( 
R 
( 
a 


OnD-O-DOO---ODW 
RPOOeDWCITDWZZD-— 


8$ 

QUOTE FLAG, 4$ 

RO, #59 

QUOTE FLAG, 4$ 

RO, a&7 
1(CHAR_COUNT)CCHAR_STRING], #42 


RO, #34 


7$ 
QUOTE FLAG, 6$ 
RO. Q0oTE_CHAR 


pe. snithiamibene 


_DRGNCNTRL 


50 
000000 ye 


0000000° 
0000000° 


00000000° 
04 88 00 


69 


69 
08 


56 68 


000000006 
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6E 


6647 


26 
00 
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14-Sep-1984 12:17:09 DEBUG. SRC JDBGNCNTRL.B 

D0 0 MOVL #1, QUOTE_FLAG 

11 BRB 
D1 A 6$: CMPL RO. QUOTE_CHAR 

12 BNEQ 7 
D4 0008F CLRL  QUOTE_FLAG 
06 $ 7$ INCL CHAR_TOUNT 
R 9 DECW (RIOT 

11 0009 BRB $ 
09 0097 8$ MOVL_  CMD_DESC, R8 
§ 0098 DIVL3. #4,~CHAR.COUNT, RO 

F O009F PUSHAB 1( 

FB OOAg CALLS #1, DBGSGET_TEMPMEM 

D A MOVL R ) 
9 OOAD MOVL (R9), DBG$GL_ORIG_COMMAND PTR 
DO 00084 MOVL_  4(R85, DBGSGC_UPCASE COMMAND_PTR 
ci O0BC ADDL3 4(R8). CHAR _COUNT, R 

f 00C1 MOVAB -1(ROS, DBGSGL_UPCASE_COMMAND_PTR+4 
é 009 MOVC3 CHAR COUNT, @0TR9) az (RB) 

1 OOOCF CMPB) © (CHAR_COUNT)CCHAR_STRING], #47 
12 00003 BNEQ 
91 00005 CMPB «1 (CHAR_COUNT)CCHAR_STRING], #42 
12 SO0DA BNEQ 

3¢ 000DC MOVZWL (R10), RO 

rae) 9000F ADDL ¢ (R9), R 

C1 000E2 ADDL3 CHAR COUNT, RO, (R9) 
B4 000E6 CLRW =: (R107 

11 000E8 BRB 10$ 

C1 OOOEA 9S: ADDL3 CHAR_COUNT, CHAR_STRING, (R9) 
DO OOOEE 10$:  MOVL 4 (RBY, 8(RB) 
BO 900F MOVW CHAR COUNT, (R8) 

DO OO0F6 MOVL 4(R8Y, CHAR_STRING 
D4 OOOFA CLRL _ CHAR_COUNT 
D4 OOOFC CLRL QUOTE FLAG 
ED O00rE 11$:  CMPZv #0, #76, (RB), CHAR_COUNT 

15 0010 BLEQ 
91 00105 CMPB = (CHAR_COUNT)CCHAR_STRING], #9 
fs 00109 BNEQ 1 
90 00108 MOVB #32, (CHAR_COUNT)CCHAR STRING) 
9A OO10F 128: MOVZBL (CHAR cOUNT) CHAR_STRING], Re 
91 00113 CMPB OR, #3 

1E 0116 BGEQU 1 
DD 0011 PUSHL #164256 

F O11E CALLS #1, DBGSNMAKE_ARG_VECT 
D oot MOVL RO, @MESSAGE_VECT 
DO 00129 MOVL #4. RO 
04 01 C RET 

100120 138:  CMPB  R2, #39 

13 001 BEQL 14 
91 001 CMPBseR2, #34 

12 001 BNEQ 1 

£8 00137 148: = BLBS QuoTE FLAG, 15$ 

DO 0013A MOVL 2, QUOTE _CHAR 

DO 001 MOVL #1. QUOTE FLAG 

11 O14 BRB 

D1 00142 15$:  CMPL  R2, QUOTE_CHAR 

12 0014 BNEQ 

D4 00147 CLRL  QUOTE_FLAG 


ronsnn Oo — 
NOOO OOWIWO 
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eee 14- oe 138 9}: #3: 39 DEBUG. SRC Saawcnthy 35:1 age 3} 
61 BF 2 91 00149 168 CMPBeséR2, «#97 : 2161 

1F 00140 BLSSU i $ : 
7A so 91 OO014F CMPB g M22 t 2163 
‘ 3 Sips TE_FLAG, : 2165 

L : 
| 6647 8 5 1 SUBB2 a aS a * COUNT) CCHAR. STRING] 3 $8 
6 p 15¢ 178: INCL + 2171 
E 136 BRB + 2127 
6647 0D 90 00160 18%: Move n ‘mn COUNT) CCHAR_STRING] + 2178 
68 B6 00164 INCW = (RBS : 2179 
50 1 DO 00166 MOVL #1, RO + 2181 
04 00169 RET : 2182 


; Routine Size: 362 bytes, Routine Base: DBGSCODE + 0816 
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ROUTINE GET_ADA_CMD_STRING(INPUT_DESC, CMD_DESC, CIS_DESC, MESSAGE_VECT) = 


‘ee 


i FUNCTIONAL DESCRIPTION: 


This routine gets the first command from the input Line. Also, 
uppercases the Line except for what is in quotes. This routine 
takes care of otr ipping the comments off the end of a DEBUG 
command. For Ada the comment character is ‘!'. There is also 
special code for the Ada tick operator that looks a lot 

Like o,ringie quote. And picking up a quoted quote is different. 


(e.g. s the character single quote. 

FORMAL PARAMETERS: 
input_desc - a VAX standard descriptor of the input Line 
cmd_desc - P Serer that will hold the next command 
cis_desc - a descriptor for the current command input 


stream. Just another ar of the above in 
case the command is a WHILE-DO. 

message_vect - the address of a longword to contain the address 
of a message argument vector. 


ROUTINE VALUE: 
A status of the routine. 


BEGIN 
MAP 
INPUT_DESC : REF obgssta desc, ! Command Line 
CIS_DESC : REF CISSLINR, ' Current command input stream 
CMD_DESC : REF BLOCK C,BYTE); ! We don't REF to dbg$stg_desc 
: because of the extra longword 
! for the initial dsc$a_pointer 
LOCAL 
CHAR_COUNT 
CHAR-STRING : REF VECTOR C,BYTEJ,  ! Vector of characters 
QUOTE_FLAG, 
QUOTE" CHAR; 


char_string = .input_desc(dsc$a_pointer]; 
char_count = 0; 


' Check for a comment Line. For all languages except C, the comment 
character is ‘!'. 


if .char_string C.char_count) EQL '!* 
THEN 


BEGIN 
input_desc Cdsc$a_pointer] = .input_desc pesc$a_pointer) + 
-input_desc Ldsc$w_length]; 


thee: 
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4 is @ WHILE; then we are able to iterate by backing up to the 
beginning of the command. 

The Pot Leutng code relies on the fact that INPUT_DESC is superimposed 
on the top Link pointed to by DBGSGL_CISHEAD. 

cis_desc = .input desc; 

cis_desc (cis$a_while clause) = .input_desc Fosc$e_ ointer]; 


cis desc (cis$w_while_length] = .input_desc (Cdsc$w_lengthJ; 


: Now count the characters in the command 


PAD AA AAAI ES 
OOONAUES WHO 0M 


char_string = .input_desc (Cdsc$a_pointer); 
char_count = 0; 

uote_flag = false; 

HILE .char_count LSS .input_desc (Cdsc$w_length] 


BEGIN 
IF .char string C.char_count]) EQL dbg$k_car_return 


Stexe 


-char_string C.char_count] EQL dbg$k_line_feed 


NOOO 
SHS 
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-char_string C.char count) EQL dbg$k_null 

((NOT .quote_flag) AND .char_string C.char_count] EQL ';") 
((NOT .quote_flag) AND .char_string C.char_count] EQL ‘!") 
EXITLOOP 


BEGIN 
IF .char_string C.char_count] EQL dbg$k_quote 
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gcher string C.char_count] EQL dbg$k_dbl quote 


GIN 
IF NOT .quote_flag 
THEN 
! Make sure this is not a tick operator. This is 
} nasty stuff... (e.g. ‘(';*) => TICK, but "(*;")* => QUOTE) 


IF (.char_string C.char_count] EQL dbg$k_quote) AND 
(.char_count LEQ .input_desc agtcew. ten th] - 2) AND 
EQL dbg$k_quote) 


00 00 00 09 09 09 09 C908 SI NI NIN INNS 
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L-cher string -char_count + 


GIN 
bag ener bering C.char_count + 1] NEQ dbg$k_left_parenthesis) 


BEGIN 
quote_char = .char_string C.char_count); 


oO 
w 


40 input desc ([dsc$w_length] = 0; 
o RETURN sts$k_error; 
da 
45 ! Before processes. we fill in the CISSA_WHILE_CLAUSE field 
4 to point to the beginning of the command. ThiS is in case the command 
: 
i 
i 
4 
3 
4 
4 
4 
ee 
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puste.tleg = true; 
ND 
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NO 
Se 
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If (.char_count LEQ .input_desc pgecdu.longehs - 4) AND 
(.char_string L.char_count + 4] NEQ dbgdk_quote) 


BEGIN 
quote_char = .char_string C.char_count]; 
guste, "leg = true; 


ELSE 
IF (.char_count LEQ .input_desc [ ogSu_longeh) - 6) AND 
a" cocher string -char_count + 6] EQL dbgdk_ quote) 


BEGIN 
quote_char = .char_string C.char_count]; 
guote.flag = true; 


QEARaNS 


oO 
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END 
ELSE 


IF .char_string C.char_count] EQL .quote_char 
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uote_flag = false; 
ND;" cs 
END; 

> char_count = .char_count + 1; 


$5 ; Make sure the length is correct. 
3 3 input_desc Cdsc$w_length] = .input_desc [dsc$w_length] - .char_count; 
2 3 Now try to get storage for the command string 
5 s cmd_desc Cdsc$a_pointer] = dbg$get_tempmem((.char_count / ZUPVAL) + 1); 
7 ' Save away pointers both to the original input string, and to 
8 ! the copied string in cmd_desc. These are used later as follows: 
9 ! In the Language (C, a lower case name represents a distinct object 
$ 0 ; its upper-case counterpart. Since we ugpgracage commands in 
1 ! cmd_desc, we will need to go back to the original input_desc to 
2 § i get~at the original version of the name. For this, we need these 
Z wo pointers. 
5 i The pointer to the upcased string is actually a vector containing 
ry. pointers to the beginning and the end of the string. 
48 dbg$gl_orig_command_ptr = _.input_desc(dsc$a_pointer); 
9 dbg$gl “upc ase_connand_ptr(O} = .cmd_descldsc a.pointer); 
29 dbg$gl_upcase_command_ptr([1] = .cmd_descldsc$a_pointer] + .char_count - 1; 
26 Fill the command buffer 


H 5 
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3 ch$move ( .char_count, .input_desc ([dsc$a_pointer], .cmd_desc (dsc$a_pointer]); 
5 
| Ypdete the input descriptor pointer. Check for a comment to skip. 
} Tne comment character is ‘!* in all Languages except C. 
if .char_string C.char_count) EQ °!" 
40 THEN 
4) EGIN 
4 input_desc [dsc$a_pointer] = .input_desc (Cdsc$a_pointer] + 
4 - input_descCdsc$w_Tength] + 
uu char count; 
45 input dese Cdsc$w_length] = 0; 
“7 ELSES 
“8 input desc (dsc$a_pointer] = char_string C.char_count]; 
50 
23 Update the command descriptor 
3g cmd_desc initial_ptr] = .cmd_desc (dsc$a_pointer]; 
54 cmd_desc (dsc$w_length) = .char_count; 
56 char_string = .cmd_desc ([dsc$a_pointer]; 
5 
38 } Now check for bad chars and translate to upper case 
60 char_count = 0; 
uote _flag = false; 
$6 Ae -char_count LSS .cmd_desc (Cdsc$w_length] 
64 BEGIN 


IF .char_string C.char_count] EQL dbg$k_tab 
THEN 
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369 char_string C.char_count] = dbg$k_blank; ! Convert tab to space 
269 IF .char_string C.char_count] LSS dbg$k_blank 

70 THEN 

71 4 BEGIN 

7 4 message _vect = dbg$nmake_arg_vect (dbg$_invchar); 

7 4 RETURN sts$k_severe; 

74 4 END 

75 3 ELSE 

a 4 BEGIN 

4 : IF .char_string C.char_count] EQL dbg$k_quote 

7 4 -char_string C.char_count]) EQL dbg$k_dbiquote 

80 & THEN 

81 BEGIN 

8 IF NOT .quote_flag 

8 THEN — 

84 ' Make sure this is not a tick operator. This is 

85 ; masty stuff... (e.g. '('s") => TICK, but ‘(°;")" => QUOTE) 

Ha IF (.char_ string C.char_count] EQL dbg$k_quote) AND 

88 (.char_count LEQ .cmd_desc Cdgc Su endth = 2) AND 

89 6 (.char_string [C.char_Count + EGL dbg$k_quote) 
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5 
1b-sep-19 4 01:38:59 AX-11 Bliss-32 V4.0-74 Page 65 
14-Sep-1984 933 :09 DEBUG. SRC SBGNCNTRL .039;1 r 1% 
THEN 
BEGIN 
tee ener aber ing C.char_count + 1] NEQ dbg$k_left_parenthesis) 
BEGIN 
quote_char = .char_string C.char_count); 
a ha = true; 
ND 
IF (.char_count LEQ .cmd_desc Cdsc$w_length] = 4) AND 
(.char_string C.char_Count + 4] NEQ dbg$k_quote) 
BEGIN . 
quote_char = .char_string C.char_count); 
guste, 1.08 = true; 
ELS 7 
If (.char_count LEQ .cmd_desc Cdsc$w_length] = 6) AND 
surg ener antr ing -char_tount + 6] EOL dbg$k_quote) 
BEGIN 
quote_char = .char_string C.char_count]; 
guste tlag = true; 
ND; 
END 
ELSE 


if zchor string C.char_count] EQL .quote_char 
uote_flag = false; 
END:° Q 
END; 
If .char_string C.char_count] GEQ ‘a’ 
-char_string pa-cher_countl LEQ ‘2° 
— -quote_flag 
char_string C.char_count] = .char_string C.char_count] 
- dbgSk_lcbias; 
END; 
char count = .char_count + 1; 
END; 


: Termanate the command with a <cr> 


char string C.char_count]) = dbg$k_car_return; 
cmd_desc (dsc$w_length] = .cmd_desc Cdsc$w_length] + 1; 


RETURN sts$k_success; 
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OFFC 00000 GET_ADA_CMD_STRING: 
WOR Save R2,R3,R4,R5,R6,R7,RB,RF,R10,R11 


E 04 ¢2 0000 SuBL2# 
A 06 AC 06 0008 MOVL ‘INPUT_DESC, R10 
9 046 «AA 3 8 MOVAB 4(R10J, R 
7 $9 D0 000 MOVL  (R9), CHAR_STRING 
: ps 01 CLRL CHAR COUNT 
21 6647 91 901 ¢ : (CHAR_COUNT) CCHAR, STRING], #33 
50 A 3 5018 MOVZWL (R10), RO 
69 0 C6 00018 ADDL2 RO, (RO) 
6A 84 0001 CLRW = (R10) 
50 02 b 00 MOVL #2, RO 
oc ac SA 00 00024 18 MOVL R10, CIS_DESC 
50 0C AC 00 00028 MOVL CIS DESC? RO 
14 AO 69 00 B28 C MOVL (ROT, 20(RO) 
34 Ad 6A 80 0030 MOV) (R105, 52(RO) 
57 9 Dd 000 MOVL (R9), CHAR_STRING 
6 D4 00037 CLRL CHAR T 
5B D4 00039 CLRL QUOTE FLAG 
56 6A 10 00 ED 00038 2$: CMPZ7v #0, #16, (R10), CHAR_COUNT 
03 14 0004 BGTR 4$ 
0089 31 00042 3$: BRW 12$ 
50 6647 9a 00045 4$: MOVZBL (CHAR COUNT) CCHAR STRING], RO 
i) 50 91 00049 CMPB RRO, #T 
F4 13 0004C BEQL ©: 3$ 
OA 50 91 0004E CMPB =SsaRO, -#10 
78 13 0005 BEQL~=Séséd 28S 
50 05 0005 TSTL RO 
77 13 0005 BEQL 128 
0D 5B £8 00057 BLBS § QUOTE_FLAG, 5$ 
3B 50 91 O005A CMPBCéRO, #59 
F 13 005 BEQL = ‘12 
05 B f 005F BLBS §§ QUOTE_FLAG, 5$ 
21 9 1 0006 CMPBséRO, «#33 
: 13 0006 BEQL ~=s«128 
1 04 00067 5S: CLRL ss RV 
27 0 91 0069 CMPBSséRO, #39 
4 12 0006C BNEQ 6$ 
1 06 006 INCL = RY. 
5 11 00 BRB 7$ 
22 9 91 00072 6$: CMPBséRO, #34 
1 7 BNEQ 11$ 
4F BE 77 7%: BLBS § QUOTE FLAG, 118 
45 1 5 7A LBC —Cs«éiRkt 
1 A 9970 MOV2WL (RIO), R1 
1 ‘ C2 00 SUBL2. #2, R 
1 01 000 CMPL  § CHAR_COUNT, R1 
27 02 aoe? ot $0 atts 108 an COUNT)CCHAR_STRING], #39 
3312 S086 BNEQ $68 . - 
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28 01 A647 9 OO8F cps 1(CHAR_COUNT)CCHAR_STRING], #40 3 2293 
1 A : 9996 MOVZWL (R10), R1 + 2300 
1  - SUBL2. #4, R : 
1 : pI 9¢ CPL HAR_COUNT, R1 : 
27 04 A667 9 al CHEB (CHAR_COUNT)CCHAR, STRING], #39 ; 2301 
1 6A : OA8 8S: MOVZWL (R10), R1 + 2308 
1 6 C OOAB SUBL2.  # ; 
1 56D CMPL CHAR_COUNT, R1 F | 
1g 14 08 BGTR : 
27 06 A647 91 0008 CMPB = 6(CHAR_COUNT) CCHAR_STRING], #39 > 2309) 
OF 12 0008 BNEQ 11$ : | 
E 0 00 OOOBA 9S: MOVL RO, QUOTE_CHAR : 3312 
B 01 »D 9080 MOVL #1. QUOTE“FLAG + 2313, 
07 11 000C0 BRB 11 3 288 
6E 0 01 000C2 10$:  CMPL RO, QUOTE_CHAR : 2318 
02 12 000C BNEG~=s«s1'18 : 
5B 04 000C CLRL § QUOTE_FLAG : 2320. 
56 b6 b90¢9 11$: INCL HAR_COUNT + 2324 
FF6D 31 000CB BRW : 262 
6A 56 A2 OOOCE 128:  SUBW2 CHAR_COUNT, (R10) : 
SR 08 AC DO 00001 MOVL. CMD_BESC, + 2334 
50 56 04 § 00005 DIVL3. #4,~CHAR.COUNT, RO 3 
01 AO OF 90009 PUSHAB 1( : 
000000006 00 1 FB oo0¢ CALLS #1, DBGSGET_TEMPMEM ; 
4 AB 0 DO 000E MOVL RO, 4(RB) ; 
0000000" EF 69 DO 000E7 MOVL (R59), DBGSGL_ORIG_COMMAND PTR : 2348. 
0000000° EF 04 A8 00 OODEE MOVL (RB . DBGSGC_UPCASE_COMMAND_PTR > 2349) 
6 04 AB C1 000F6 ADDL3 4 (RB). CHAR_C R : 2350) 
00000000° EF FF AO 4 000r8 MOV -1(ROS, DBGSGL_UPCASE_COMMAND_PTR+4 : 
04 B8 00 89 5 é 0010 MOVC3 CHAR COUNT 7 TRI) az (RB) > 2354 
21 6647 91 00199 CMB (CHAR_COUNT)CCHAR_STRINGJ, #33 ; 2360, 
50 6A 3¢ itt MOVZWL (R10), RO > 2364) 
50 69 CO OO112 ADDL (RO), R ; 
69 50 56 C1 0011 ADDL3 CHAR COUNT, RO, (R9) > 2365 
Be Ft Oolie OE $366 | 
69 57 6 C1 eet 13$ ADDL3 CHAR COUNT CHAR_STRING, (R9) ; $300 
08 A8 04 A8 00 o1g1 14$ 4(R8Y, 8(RB) i 74 | 
68 56 BO 00126 MOVW § CHAR_COUNT, (R8) > 2375 | 
57 04 AB DO 00129 MOVL  4(R8T, CHAR_STRING > 2376 
56 D4 0010D CLRL  CHAR_COUNT : 2381. 
5B D4 O012F CLRL auore FLAG : g Be 
56 46 10 99 ED 1 1 15$ CMP7v #0, #76, (RB), CHAR_COUNT > 2383. 
00a2 $1 001 sre ‘gaa 
09 664 31 St 16$:  CMPB = (CHAR_COUNT)CCHAR_STRING], #9 > 2386 
4 If 013F BNEQ ; 
6647 : 90 00141 MOVB #32, (CHAR COUNT) CCHAR STRING) > 2388. 
6647 9A 00145 178:  MOVZBL (CHAR cOUNT) CHAR_STRING), R2 3 2390 
2 3 91 00149 CMPBOR?, #3 F 
15 1€ 0014C BGEQU 1 ; 
000281A0 af DD 00145 PUSHL #164256 : 2393 
000000006 00 1 FB 00154 CALLS #1, DBGSNMAKE_ARG_VECT : 


1besep-19 4 91:38:33 AX-11 Bliss-32 V4.0-74 Pose. 


14-Sep-1984 9 DEBUG. SRC JDBGNCNTRL.B32; 1 
10 eC 30 00 158 MOVL RO, @MESSAGE_VECT : 
4 v0 13 MOVL #4. RO + 2394 
4 00163 188 CLRL oR : 2398 
27 9 Bf is CMPB R3 #39 : 
S § 1 BNEQ «419 F 
p 164 INCL : 
16¢ BRB 20$ F 
22 91 165 19$: (CMPB R2, #34 t 2400 
12 00171 BNEQ 4 : 
OF £8 00173 20$:  BLBS QUOTE FLAG, 24$ + 2403 
45 5 0176 BLBC 3—E_s«RO,, 23 + 2608 
20 6 17 MOVZ2WL (RB), RO + 2409 
0 C2 0017¢ SUBL2. #2, F 
50 D1 0017F CMPL HAR_COUNT, RO : 
A 14 00182 BGTR ; 
27 02 noe 91 001 4 cMPB (CHAR_COUNT)CCHAR_STRING], #39 + 2410 
28 01 nek? 9 00188 CMP 1(CHAR_COUNT)CCHAR_STRING], #40 + 2613 
50 68 3C¢ 00192 MOVZWL (RB), RO + 2420 
5 04 C2 0019 SUBL2 . ; 
50 6 D1 00198 CMPL  CHAR_COUNT, RO : 
07 14 00198 BGTR 1 : 
27 04 aos? 91 9919p CPB 4(CHAR_COUNT)CCHAR_STRINGJ, #39 + 24621 
50 ag 3¢ BOlAL 21$:  MOVZWL (RB), RO + 2428 
50 06 C OO1A7 SUBL2. #6, : 
50 56 D1 OO1AA CMPL HAR_COUNT, RO : 
16 14 O01AD BGTR ; 
27 06 A647 91 OOTAF CMPB (CHAR_COUNT)CCHAR_STRING], #39 > 2429 
OF 12 001B4 BNEQ 4$ : | 
6E 2 DO 00186 22$:  MOVL R2, QUOTE_CHAR : 432 
58 01 + 01B9 MOVL #1, QUOTE_FLAG 3 24 
07 11 001BC BRB 24 + 240 
3 32 D1 OO1BE 238:  CMPL R2, QUOTE_CHAR + 243 
Q 12 001C1 BNEQ 4 ; 
: D4 O0ics CLRL  QUOTE_FLAG > 2440 
61 = 8F 52 (91 orc 24$:  CMPB #97 : 2664 
0D 1F 001¢9 BLSSU 2 ; 
7A —soBF 32 91 001CB CMPBsoaR2, #122 : 2446. 
Q 1A OOICF BGTRU 25$ ; 
04 B : 0101 BLBS QUOTE FLAG, 258 + 2448 
6647 0 B1Ds SUBB2 ff TCHAR_COUNT) CCHAR_STRING] : 2451 
a 108 258 INCL  CHAR_COUNT 7 2454 
FFS4 1 OO1DA BRW 1 3: 2383 
6647 0p 90 O1Dp 26$: MOVB #13, (CHAR_COUNT)CCHAR_STRING) + 2461 
68 86 161 INCW = (RBS + 2462 
50 01 p O1E3 MOVL #1, RO + 2664 
4 OO1E6 RET > 2465 


; Routine Size: 487 bytes, Routine Base: DBGSCODE + 0980 


18-Sep-19 r 93:38:39 AX-11 Bliss-32 Mt oaSs1 Page 69 


14-Sep-19 DEBUG. SRC JDBGNCNTRL.B (14) 
H re } ROUTINE GET_NORMAL_CMD_STRING(INPUT_DESC, CMD_DESC, CIS_DESC, MESSAGE_VECT) = 
: 468 1 !4¢ 
; r ; ! FUNCTIONAL DESCRIPTION: 
3 471 1! This routine gets the first command from the input Line. Also, 
; rhe ,! yopercaces the Line except for what is in quotes. This routine 
; 475 1! takes care of stripping the comments off the end of a DEBUG 
; rh ; command. For all languages except C, the comment character is 
; 476 1! 
5 of ! } FORMAL PARAMETERS: 
3 rt 4 : } input_desc - a VAX standard descriptor of the input Line 
; : 1 \ cmd_desc - a descriptor that will hold the next command 
3 ' ne. 
; a8 1; cis_desc - a descriptor for the current command input 
3 ee tee 7} stream. Just another copy of the above in 
$ 5 485 1! case the command is a WHILE-DO. 
3 486 1! message_vect - the address of a longword to contain the address 
: 7 487 1! of a message argument vector. 
; 2368 488 1! 
; 2369 489 1 ! ROUTINE VALUE: 
; 3/9 490 1! 
3; 2371 491 1! A status of the routine. 
; 37¢ 492 1! 
3; 237 493 1 !-- 
3; 2374 494 1 
3; 2375 495 BEGIN 
; 2376 496 
3 2377 497 MAP 
3; 2378 2498 INPUT_DESC REF Gogsste desc, ! Command Line 
3 2379 499 C1S_DESC : REF CISSLINR, ' Current command input stream 
5 See 500 CMD_DESC : REF BLOCK C,BYTE); ! We don't REF to dbg$stg_desc 
3; 2381 501 ' because of the extra longword 
3 386 208 ! for the initial dsc$a_pointer 
; 238 50 
3 2384 504 # 
> 2385 505 CHAR-STRING REF VECTOR C,BYTE], ! Vector of characters 
3 2386 506 QUOTE_FLAG, 
3; 2387 507 QUOTE _CHAR; 
3; 2388 508 
3 2389 509 
3; 2390 510 char_string = .input_desc(dsc$a_pointer]; 
3 Hh char_count = 0; 
s 218 ! Check for a comment Line. For all languages except C, the comment 
3 2394 218 character is ‘!',. 
3; 23% 1 IF .char_string C.char_count) EQL ‘!° 
: 1 THEN 
3 18 BEGIN 
3 519 input_desc Cdsc$a_pointer] = .input_desc pesc$a_pointer) + 
3 520 -input_desc [dsc$w_length); 
3 521 input desc Cdsc$w_length] = 0; 
3 522 RETURN sts$k_error; 


gat bg 


ret 
208 


“or 


| 


= 
ooo 
@ 


PP oy a? oT ot et ot et ee et et et et et et et te et te 
SOOWOONOUSWN —“OOONOUS W000 


WARIRIPONPIPINPININNNY 2 2? St SS 


POPIPIPIPOPINNIPYINIPNIAININIPYININIDINIPDNININIPINININININIPININYININIPININIPININPIPIPPYPINIPIPIPIPIPIPININPININIPD 


yal al ah 4h 4h 4h 4h 4h Ab Ah Ab Ab Ab Ad Ab ah Ahab eh th tb eh ah eh eh hh dh hh db hb ehh Ah Ab Ab hh Ab hh hh hh dh bbb dh bl 


PPP AAMAMMAVIWMIUT 


SSN NN NNO O 


DDDPEDPDPED GAAP & BB EEE EWN nonnonrnonorn 


QSAR Kw 2S Sao new ooo NOUS WN 0 OONA LEWIN (OOOO Ew 


PEF PNA AAAMNMAA AMA MNES B&H FE WAH E AS AWWA AIGPPIPIPINININIPINIPIPOPNININIPINIPUPIPINPINNYD 


1b-sep- 138% 9: 75:33 AX-11 Bliss-32 V4.0-74 


! Before Mpg dy f we fill in the CISSA_WHILE_CLAUSE field 
eginning of the comman § is in case the command 
sa M E; then we are able to iterate by backing up to the 


i The follow ng code relies on the fact that INPUT_DESC is superimposed 
! on the top Link pointed to by DBGSGL_CISHEAD. 


cis desc = .input_d 
cis_desc cis$a_ uRile. *e Lause = .input_desc (Cdsc$a_ etnteras 
cis_desc [cis$w_while_length -input_desc Cdsc$w_lengthJ; 
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Now count the characters in the command 
see String = .input_desc (Cdsc$a_pointer]; 
char_count = 0; 
tae flag = false 

“wel input _desc *tascSw length] GTR 0 


BEGIN 
IF .char_string C.char_count) EQL dbg$k_car_return 


-char_string C.char_count] EQL dbg$k_Lline_feed 
-char_string C.char_count] EQL dbg$k_null 
((NOT .quote_flag) AND .char_string C.char_count] EQL ';") 
aap -quote_flag) AND .char_string C.char_count] EQL '!") 
EXITLOOP 
ELSE 
BEGIN : 
IF .char_string C.char_count] EQL dbg$k_quote 
a alae C.char_count] EQL dbg$k_dbl quote 
BEGIN 
IF NOT .quote_flag 
THEN 
BEGIN 
quote_char = .char_string C.char_count); 
quote, flag = true; 
ELSE 
4 _cher string {C.char_count] EQL .quote_char 
uote_flag = false; 
en:" -tlag 
END; 


char_count = .char count ¢ 1; 
input_desc Cdsc$w_Tength]) = pee Cdsc$w_length] - 1; 
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aes 93:78:38 DEBUG. SRCIDBGNCNTRL.B3 31 
END; 

END; 


Now try to get storage for the command string 
cmd_desc [dsc$a_pointer] = dbgSget_tempmem((.char_count / ZUPVAL) + 1); 


Save away pointers both to the original input string, and to 

the copied str ng in cmd_desc. These are used later as follows: 
In the language (, a lower case name represents a distinct object 
from its upper-case counterpart. Since we upper-case commands in 
cmd_desc, we will need to go back to the original input_desc to 
et at the original version of the name. For this, we need these 
wo pointers. 


The pointer to the upcased string is actually a vector containing 
pointers to the beginning and the end of the string. 


! 
dbg$gl_orig_command_ptr = 
dbg$gl_upcase_command_ptr 


0)°e end. desefaseba_potnte 
Soubetceocosenconmend-perti 


} = .cmd_descldsc a.peinterd:; 
= dsc$a_pointer] + .char_count =- 1; 


-cmd_desc 
} Fill the command buffer 
ch$move ( -char_count, .input_desc Cdsc$a_pointer], .cmd_desc (dsc$a_pointer]); 
; Ypdete the waput descriptor pointer. Check for a comment to skip. 
} The comment character is ‘!" in all languages except C. 
if .char_string C.char_count]) EQ. '!* 
THEN 
BEGIN 
input desc Cdsc$a_pointer] = .input_desc (Cdsc$a_pointer] + 
-input_descCdsc$w_Tength] + 
-char_count; 
sngut dove Cdsc$w_length] = 0; 
EN 
ELSE . 
input_desc Cdsc$a_pointer] = char_string C.char_count); 
: Update the command descriptor 
cmd_desc poneg set pte? = .cmd_desc (dsc$a_pointer); 
cmd_desc ([dsc$w_length] = .char_count; 
char_string = .cmd_desc ([dsc$a_pointer); 
Now check for bad chars and translate to upper case 
char_count = 0 


quoté_tlag = false; 
pale -char_count LSS .cmd_desc (Cdsc$w_length] 


-— sothectcttieemnaniatincieiptinniiaieneitaetinannniien 


tga 


Ty 


; 2570 690 
; INFO#250 L1:2572 as legs 
; Referenced LOCAL symbol QUOTE_CHAR is probably not initialized 


6 
ise -1984 01:38:59 AX-11 Bliss-32 V4.0-74 P 72 
14-Sep-19 4 93375538 DEBUG. SRC IDBGNCNTRL .B3 31 298 14) 
; 251 637 BEGIN 
3 : 5 {i <cher string C.char count] EQL dbg$k_tab 
; ry char_string C.char_count] = dbg$k_blank; ! Convert tab to space 
3 § otg IF _.char_string C.char_count] LSS dbg$k_blank 
; 64 THEN 
; 4 644 4 BEGIN 
3 5 645 4 »message _vect = dbg$nmake_arg_vect (dbg$_invchar); 
: $ 646 4 RETURN sts$k_severe; 
; 647 & f 
; 648 5 ELSE 
; 649 4 BEGIN 
2 $2 220 2 IF .char string C.char_count] EQL dbg$k_quote 
: 25 652 4 -char_string C.char_count] EQL dbg$k_dbiquote 
; 2 ; 88 4 HEN 
; 654 BEGIN 
3 2535 655 IF NOT .quote_flag 
; 25 $28 THEN 
3 @ 657 6 BEGIN 
3; 25 658 6 quote_char = .char_string (.char_count); 
3; 2539 659 6 Gusta, sag = true; 
; 2540 660 3 ND 
3 2561 661 ELSE 
3; 254 O66 6 N 
3 254 665 6 If .char_string C.char_count] EQL .quote_char 
3 25446 664 6 THEN 
3 2545 665 6 quote_flag = false; 
; 4 666 5 D; 
; 254 667 4 END; 
; 2548 2668 4 
3 2549 2669 4 IF .char_string C.char_count] GEQ ‘a’ 
: 2550 670 4 
3 2551 671 4 -char_string C.char_count) LEQ ‘2° 
; 236 ore 4 
3; 255 673 4 NOT .quote_flag 
> 2554 674 4 THEN 
3; 2555 675 4 char_string C.char_count] = .char_string C.char_count] 
3 226 676 4 - dbgSk_icbias; 
; 25 67 END; 
3 2558 678 
; 2559 679 char_count = .char_count + 1; 
; 2560 680 
: rt . 1 END; 
3 68 6 : 
; He] 6 : : Termanate the command with a <cr> 
5 268 char string C.char_count) = dbg$k_car_return; 
3 267 6 cmd_desc [ sc$w_length] = .cmd_desSc Cdsc$w_length] + 1; 
29° 689 RETURN sts$k_success; 
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OFFC 00000 GET_NORMAL_CMD_STRING: 
vine Save R2,R3,R4,R5,R6,R7,RB,RI,RIO,R11 


iq 04 C3 ° 5 
7 4 AC 0 § MOVL. INPUT DESC, R10 
9 4 AA : 0 MOVAB 4 (R103, R 
58 $9 D 00 MOVL  (R9), CHAR_STRING 
é ps 1 CLRL CHAR COUNT 
21 sere 4 : ! cree (CHAR_COUNT)CCHAR_STRING], #33 
50 A 3 001 MOVZWL (R10), RO 
69 0 (CO 00018 ADDL2 (R9) 
A B64 0001 CLRW 3s (R10) 
= ct a 
Oc AC SA 00 0024 1$ MOVL 10, CIS_DESC 
50 oc AC D 906 8 MOVL CIS DESC RO 
14 AO 69 DO 0002C MOVL (ROT, 20(RO) 
34 Ad 6A 80 000 MOVe (R105, 52(RO) 
58 69 D0 000 MOVL (R9), CHAR_STRING 
56 D4 900 7 CLRL CHAR COUNT 
58 04 00039 CLRL QUOTE_FLAG 
6A 83 00038 2%: TSTW = (R10) 
44 13 000 BEQL «6s 7$ 
50 6648 9A 0003F MOVZBL (CHAR COUNT) CCHAR, STRING], RO 
i) 0 91 00043 CMPB ORO, aT 
13 0004 BEQL 
OA 0 91 0004 CMPB =—saRO, «#10 
6 13 00048 BEQL «= 7$ 
0 Oo 90040 TSTL = RO 
2 13 0004F BEQL «6s 7$ 
90 & £8 90051 BLBS § QUOTE _FLAG, 3$ 
50 91 00054 CMPB ORO, #59 
eA 13 00057 BEQL 
05 r 3 0059 BLBS  QUOTE_FLAG, 3$ 
21 50 (91 O09¢ CMPB «RO, #33 
: 13 0005F BEQL 
27 91 00061 38: CMPB SséRO, «#39 
0° 13 00064 BEOQL 
22 g 91 00066 FI RO, #34 
12 1 69 BNEQ 
08 38 e 6B 4$ BLBS Quote FLAG, 5$ 
6 D OE MOV RO, QOOTE CHAR 
8B 1 pO 000 MOVL #1, QUOTE“FLAG 
7 11 00074 BRB 
6E 0 01 16 5$: CMPL RO, QUOTE_CHAR 
2 12 BNEQG 6$ 
B 04 00078 CLRL  QUOTE_FLAG 
6 dg 7D 6$: INCL CHAR_COUNT 
6A ; 7F DECW © (RIOT 
B8 11 1 BRB 2$ 
57 08 Ac 09 ; 7$: MOVL. CMD_DESC, R7 
50 é 04 3 00 DIVL3. #4, ~CHAR_COUNT, RO 
01 ad 9F 000 PUSHAB 1(RO) 


6 
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06 09 Qi F 8 CALLS #1, DEGSGET_TEMPMEN : 
EF e3 4 Govt °R4)." DOGSGL_ORIG. COMMAND. PTR ? 2600 
0 ' Et 04 A? D A MOVL. 4(R75, pocser UPCASE_COMMAND_PTR + 2601 
50 6 4 A? A ADDL3 4(R7), CHAR COUNT, R : 2602 
00000000" EF FF AD Ap mOVAR =1(R05 pacScL UPCASE_COMMAND_PTR+4 : 
046 87 0 89 36 B MOVC3  CHAR_COUNT : TRO) (R7) : 26 
1 664 B CMPB (CHAR. COUNT) CHAR_STRING], #33 : 261 
OE \2 OOBF BNEQ «so : 
6A ¢ oc! MOVZWL (R10), RO + 2616 
9 CO 000C4 ADDL2  (R9), RO : 
69 6 C1 09¢7 ADDL3 CHAR COUNT, RO, (R9) + 2617 
A 84 cB CLRW (R107 3: 2618 
4 11 000CD BRB : 2612 
69 « g C1 OO0CF 8s ADDL3 CHAR COUNT CHAR_STRING, (R9) + 2621) 
08 A 04 a? dO 9003 $ MOVL 4(R73, BCR?) : 26 $ 
7 56 BO 000 MOVW § CHAR COUNT, (R7) : 36 
8 06 A? 00 9008 MOVL 4 (R73, CHAR_STRING 3 2628 
56 D4 OOODF CLRL  CHAR_COUNT > 2633 
5B D4 000E1 CLRL QUOTE _FLAG > 2634. 
56 67 10 90 Fp ait 108: at #0, #16, (R7), CHAR_COUNT 3 2635 | 
09 osks 4 QOEA CPB (CHAR_COUNT)CCHAR_STRING], #9 : 2638 
6648 0 90 titid MOVB #32, (CHAR COUNT) CCHAR STRING] + 2640 
32 6648 9A OOOFS 11$:  MOVZBL (CHAR COUNT) CHAR_STRING], R2 : 2642. 
2 5¢ 91 000F8 CMPBR2, #3 ; 
15 1€ 000FB BGEQU 12$ ; 
000281A0 8F DD 900° PUSHL #164256 + 2645 
000000006 00 or FB 9019 CALLS #1, DBGSNMAKE_ARG_VECT : 
10 BC 0 DO OO10A MOVL RO, @MESSAGE_VECT : 
0 04 DO 0010€ MOVL #4. RO + 2646 
04 00111 RET ; 
27 52 91 O12 128:  CMPB  R2, #39 : 2650 
Q 13 0011 BEQL : 
22 : 91 00117 CMPR eR, «#34 > 2652 
1 1 OO11A BNEQ si ; 
08 38 E8 OO11C 13$: BLBS QUOTE FLAG, 14$ > 2655 
6E 52 DO OO11F MOVL 2, QUOTE CHAR : 2658 
58 07 DO 001 MOVL #1. QUOTE~FLAG > 2659 
07 11 001 BRB 15§ > 2655 
6E g 01 Q017 148: (HPL Ry QUOTE_CHAR 2663 
12 OO12A BNEQ 15$ F 
: ps 91 C CLRL QuoTe FLAG > 2665 
61 BF 1 001 f 15$:  CMPB Re, #97 > 2669 
op 1F 001 BLssu ‘16 ; 
7A oF é 91 001 CMPBséR2, #122 > 2671 
9 1A 001 BGTRU 16$ ; | 
04 : ES 13a BLBS QUOTE FLAG, 16$ > 2673. 
6648 ¢ 01 SUBB2# TCHAR_COUNT) CCHAR_STRING) ; 2676 
6 D6 00141 168: INCL  CHAR_COUNT : 2679 | 
9€ 11 143 BRB 1 : 2635 | 
6648 0b 90 00145 178:  MOVB #13, (CHAR_COUNT)CCHAR_STRING) > 2686 
6 B 149 INCW = (RS > 2687 
50 1 p 148 MOVL #1, RO > 2689 | 
4 OO014E RET > 2690 
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; Routine Size: 335 bytes, Routine Base: 


PSECT SUMMARY 


$27) $63) 1 
72 692 0 END ELUDOM 
Name Bytes 
DBGSGLOBAL Ug 
DBGSOWN : 
DBGSCODE 3254 
DBGSPLIT 43 


NOVEC,NOWRT, RD 


Library Statistics 


File 
$255$DUA28: SyStIB3L I 
$255$DUA28: (DEBUG. shes ciper 32:1 
$255$DUA28 : (DEBUG. “OB, pecriBe ts 1 
$255$DUA28 : CDEBUG. OBJ JDSTRECRDS.L32;1 
pene UA28: FDEBUG.0BJ DBGMSG.L32;1 
55$DUA28: EpEBUS- Oey DBGGEN.L32:1 


Information: 4 
Warnings: 
Errors: 


DBGSCODE + 0867 


F 6 
1e885=1986 $2:19:09 


Attributes 


NOVEC, WRT, RD ,NOEXE,NOSHR, 
NOVEC, WRT, 4 Ae ee 


Se ° 
EXE, SHR, 


econ ene > Symbo t g eecmsreoce 


Total Loaded 


18619 16 
i 0 
154 48 
418 13 
386 3 
150 1 


COMMAND QUALIFIERS 


BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=LIS$:DBGNCNTRL/OBJ=OBJ$:DBGNCNTRL MSRC$:DBGNCNTRL/UPDATE=(ENH$: DBGNCNTRL ) 


gee ie 3254 code + 107 data bytes 


Elapsed Time: 33 8 
nes/CPU $3 ; 

Lenenes/CPU-Rin; 17284 
"Y Used: 252 pages 

ee ation Complete 


Percent 
0 


oOow WoO 


AX=11 Ot igseze v4.07 
DEBUG. SRC JDBGNCNTRL.B 


~-EXTRN LIBSSIGNAL 


ici. REL. 
io, bs 
LCL, REL, 
LCL, EL, 
Pages 
Mapped 
1000 
7 

97 

31 

22 

12 


Processing 
Time 


$351 
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